ďťż

Ładny brzuch

jak zrobić żeby przytrzymując myszkę na formie można było nią (formą) ruszać??


procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin  ReleaseCapture;  SendMessage(Form1.Handle, WM_SYSCOMMAND, $F012, 0); end;

dopiszcie to do FAQ

THX :)
Użytkownik dddman edytował ten post 15 luty 2006, 16:00

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin if Button=mbLeft     then begin            SendMessage(Handle, WM_LButtonUp, 0, 0);            SendMessage(Handle, WM_NCLButtonDown, htCaption, 0 ); end; end;

Coś wyjaśnić?


dopiszcie to do FAQ Po co, skoro i tak nikt nie przeczyta? :rolleyes:

w formmousedown:ReleaseCapture; Perform(WM_SYSCOMMAND,SC_SIZE+9,0);
Użytkownik Cyrkiel edytował ten post 15 luty 2006, 17:16
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •