自定义的类里面，MessageBox中Handle参数的问题 ( 积分: 15 )

R

ReStart

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-14

• #1

我自定义的类里面，想用MessageBox，有这么一句：
改ShowMessage MessageBox(Handle,'','提示',MB_OK+MB_ICONINFORMATION);
然后编译无法通过，提示Handle是未定义参数，怎么解决呢？
在其他窗体就没有问题

 

R

ReStart

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-14

• #2

我自定义的类里面，想用MessageBox，有这么一句：
改ShowMessage MessageBox(Handle,'','提示',MB_OK+MB_ICONINFORMATION);
然后编译无法通过，提示Handle是未定义参数，怎么解决呢？
在其他窗体就没有问题

 

P

plzw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-14

• #3

因为 TForm 有一个 Handle 属性。
您可以直接给该参数传入 0(桌面句柄)。

 

Z

zzz2k

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-14

• #4

TMyClass = class(TObject)
public
procedure MyProcedure(MyHandle : HWND);
end;
//你可以传入任何窗体句柄 Handle;例如：主窗体 MyProcedure(MainForm.Handle);
procedure TMyClass.MyProcedure(MyHandle : HWND);
begin
MessageBox(MyHandle,'','提示',MB_OK+MB_ICONINFORMATION);
end;

 

C

chinaandys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-15

• #5

从Twincontrol继承下来的类应该都有handle。你新建一个类并不是从这里继承下来的，所以无句柄。如果要引用可以这样:

MessageBox(form1.Handle,'','提示',MB_OK+MB_ICONINFORMATION);

 

天

天地弦

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-15

• #6

你可以用Application.Handle啊

 

天

天地弦

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-15

• #7

注意，uses forms