@Airblader
Ultimator wollte damit nur auf unsere hübsche Forn-Suche aufmerksam machen.
@Ultimator
Nich traurig sein, wenn dass niemand verstanden hat, wobei man, wenn du schon verlinkst, nun wirklich ein Resultat erwarten könnte.
Aber bevor ihr beiden euch noch die Köpfe einschlagt
,
poste ich mal schnell den Source:
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;
gruss