窗体标题栏如何响应鼠标点击事件？(100分)

R

rivering

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-15

• #1

我想在标题栏上单击，响应自己的某个操作，如何做？

 

S

sportsman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-15

• #2

你可以试试相应Resize()事件

 

Z

zhhc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-15

• #3

响应WM_NCHITTEST消息即可

 

F

Fyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-15

• #4

private
procedure WMNCLButtonDown(var m: TMessage); message WM_NCLButtonDown;

procedure TForm1.WMNCLButtonDown(var m: TMessage);
begin
Close;
end;

 

R

rivering

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-19

• #5

接受答案了.