Registriert seit: 29. Mai 2002
37.621 Beiträge
Delphi 2006 Professional
|
Fenster nicht verschieben
11. Jun 2002, 14:49
Delphi-Quellcode:
private
{ Private-Deklarationen }
public
procedure WMNChittest(var msg:TWMNChittest);Message WM_NChittest;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
position:=poscreencenter;
end;
procedure TForm1.WMNChittest(var msg:TWMNChittest);
begin
DefaultHandler(Msg);
if Msg.result=HTCAPTION then
Msg.result:=HTCLIENT;
end;
Michael Ein Teil meines Codes würde euch verunsichern.
|