怎么样使一个自定义方法或者属性显示在Object Inspector上(50分)

S

siaosa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-08

• #1

怎么样使一个自定义方法或者属性显示在Object Inspector上,
例如
type
TForm1 = class(TForm)
published
procedure myevent;
end;
由TForm1派生出来的类，myevent事件并不显示在Object Inspector上,是这样定义有问题吗？

 

L

lichdr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-08

• #2

是有問題。
事件也是屬性。
property myevent read ... write ... ;

 

S

siaosa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-08

• #3

我这样试了，也显示不出来。
并且我是想让myevent显示在event栏

 

L

lichdr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-08

• #4

property myevent: TNotifyEvent read Fmyevent write fmyevent;
定義相應的方法指針。有時還要定義相應的MESSAGE方法來觸發。

 

I

ing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-08

• #5

...你是在寫控件？？？？
還是在給Form加屬性？？？

 

S

siaosa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-08

• #6

给form加属性，想让由TForm1派生出来的表单能够显示出属性

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-08

• #7

type
TMyEvent=procedure (a,b:string) of object;//举个例
TForm1 = class(TForm)
private
FMyEvent:TMyEvent;
published
property myevent: TNotifyEvent read Fmyevent write fmyevent;
end;

 

S

siaosa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-08

• #8

TO: hongxing_dl
试了，显示不出来
type
TForm2 = class(TForm1)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

TForm2的属性中没有myevent

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-08

• #9

确实显示不出来的，但可以直接调用啊。

 

D

dagang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-08

• #10

创建派生窗口的时候:
file-new- 打开面板，选择 project栏目的 Tform1