Ĺadny brzuch
Jak w Delphi przesuwać formę kursorem myszki po nacisnięciu na niej kursorem i przytrzymaniu w dowolnym miejscu.
Już mam :)
if Button = mbLeft then begin ReleaseCapture; SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0); end;
Użytkownik Delphi edytował ten post 06 sierpień 2005, 17:22
Cholerka, nie działa. Może jakiś inny sposób
Delphi - edytuj posty!
robisz tak - w zdarzeniu onmousedown (czy jakos tak) zapisujesz aktualne polozenie formy do dwochzmiennych (albo do pointa). a w onmouseup po prostu robisz aktualne polozenie formy - to zapisane. teraz do aktualnego polozenia formy dodajesz te roznice. I to NA PEWNO dziala.
Delphi - edytuj posty!
robisz tak - w zdarzeniu onmousedown (czy jakos tak) zapisujesz aktualne polozenie formy do dwochzmiennych (albo do pointa). a w onmouseup po prostu robisz aktualne polozenie formy - to zapisane. teraz do aktualnego polozenia formy dodajesz te roznice. I to NA PEWNO dziala.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Już mam :)
if Button = mbLeft then begin ReleaseCapture; SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0); end;
Użytkownik Delphi edytował ten post 06 sierpień 2005, 17:22
Cholerka, nie działa. Może jakiś inny sposób
Delphi - edytuj posty!
robisz tak - w zdarzeniu onmousedown (czy jakos tak) zapisujesz aktualne polozenie formy do dwochzmiennych (albo do pointa). a w onmouseup po prostu robisz aktualne polozenie formy - to zapisane. teraz do aktualnego polozenia formy dodajesz te roznice. I to NA PEWNO dziala.
Delphi - edytuj posty!
robisz tak - w zdarzeniu onmousedown (czy jakos tak) zapisujesz aktualne polozenie formy do dwochzmiennych (albo do pointa). a w onmouseup po prostu robisz aktualne polozenie formy - to zapisane. teraz do aktualnego polozenia formy dodajesz te roznice. I to NA PEWNO dziala.