高手来帮助看一下(50分)

N

nzfboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-30

• #1

private
procedure WMQUERYENDSESSION(var message:Tmessage);message WM_QUERYENDSESSION;
procedure WMNCHitTest(var M: TWMNCHitTest)
message wm_NCHitTest;
我定义有什么错？为什么为出错？
如何解决

 

S

Slong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-30

• #2

没有错啊，你是否漏悼了这些：
procedure TForm1.WMQUERYENDSESSION(var message:Tmessage);
begin
Inherited;
end;

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
Inherited;
end;

 

N

nzfboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-02

• #3

这两句话，有什么具体作用？

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-02

• #4

Slong 的意思是你的定义应该没有问题，但是你是否记得实现？
例：
...
procedure AAA
//定义
...

procedure TForm1.AAA
//实现
begin
//do something
end;

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-02

• #5

继承原有事件
procedure TCustomForm.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
Message.Result := Integer(CloseQuery and CallTerminateProcs);
end;
case Msg of
WM_NCHITTEST:
begin
Default;
if Result = HTCLIENT then Result := HTTRANSPARENT;
end;