|
Registriert seit: 9. Jun 2003
Ort: Pforzheim
2.458 Beiträge
Delphi 2007 Professional
|
Re: ziehen mit borderstlye bsnone
18. Jul 2004, 23:13
Delphi-Quellcode:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (ssLeft in Shift) then begin
ReleaseCapture;
SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_MOVE+1,0);
end;
end;
Christian Bootz
Einstein ist tot, Newton ist tot,
und mir ist auch schon ganz schlecht...
|