public
{ Public declarations }
procedure WMNCLBUTTONDOWN(var msg: TMessage); message WM_NCRBUTTONDOWN;
procedure TForm1.WMNCLBUTTONDOWN(var msg: TMessage);
begin
showmessage('右键点击了');
// close;
end;
public
{ Public declarations }
procedure WMNCLBUTTONDOWN(var msg: TMessage); message WM_NCRBUTTONDOWN;
procedure TForm1.WMNCLBUTTONDOWN(var msg: TMessage);
begin
showmessage('右键点击了');
// close;
end;