form的标题变成了广告(50分)

使用一个ocx控件,他把我的form的标题变成了它的广告,
如何把他改过来??

g

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure disabletitle(var Msg:TMessage);message wm_settext;
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Caption:='abcdedfg';//disable title;
end;

procedure TForm1.disabletitle(var Msg: TMessage);
begin
msg.Result:=1;
end;

end.

搞清楚他是何时更改的，创建的时候？还是在执行某个操作的时候？
搞清楚后，在执行这个操作后，将标题改过来。
先试试在OnShow中更改一下，改法吗？想你也会
Form1.Caption := '标题'

>>

呵呵，你是要CRACK呀？
把BorderStyle := bsNone;
自己用Shaper+label做标题栏，呵呵。
经济实惠

你非要用它吗，如不用，把它反注册掉.

CJ:
你真够流氓的，不过这样就要自己响应WM_NCHitTest了

拖动窗口很好做的啊

时间太久，强制结束。 wjiachun