Ĺadny brzuch
Witam
Mam taki problem, chciałbym, by za pomocą kliknięcia w obrazek w programie - można go było przesunąć (tak jak się przesuwa program najeżdżając na jego pasek tytułowy). Kiedyś miałem do tego kod, jednak gdzieś mi się zagubił.. Zależy mi na tym, aby trzymając naciśnięty przycisk na tym obrazku można było przemieścić całe okno programu. Pomoże ktoś?
I takie drugie pytanie dodatkowe, można zrobić zaokrąglone rogi programu? Tak jak bym np. chciał zrobić program o kształcie koła. Wiem, że trzeba dodać obrazek, ustawić Align na alClient i oczywiście BorderStyle formy na bsNone. Tylko że obrazków delphi .png chyba nie przyjmuje i mi to wyjdzie dalej jako prostokąt, a nie np. jako koło programu. Co radzicie?
Posiadam Delphi 2009.
Z góry dziękuję za pomoc.
Pozdrawiam ;)
przesuwanie całej formy:
onmousedown If Button = mbLeft then begin ReleaseCapture; SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0); end;
zaokrąglone rogi:
Object Inspektor > BorderStyle > bsNone. SetWindowRgn( Handle, CreateRoundRectRgn( 0,0,width,height,20,20 ),true ); SetWindowRgn(Panel2.Handle,CreateRoundRectRgn (0,0,Panel2.Width+1,Panel2.Height+1,20,20),true);;
przesuwanie komponentów:
OnMousDown: ReleaseCapture; SendMessage(TWinControl(Sender).Handle, WM_SYSCOMMAND, $F012, 0); $F008 - prawy dolny róg $F007 - lewy dolny $F006 - dół $F005 - prawa góra $F004 - lewa góra $F003 - góra $F002 - prawa strona $F001 - lewa strona i jeszcze: $F020 - minimalizacja $F030 - maksymalizajca
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Mam taki problem, chciałbym, by za pomocą kliknięcia w obrazek w programie - można go było przesunąć (tak jak się przesuwa program najeżdżając na jego pasek tytułowy). Kiedyś miałem do tego kod, jednak gdzieś mi się zagubił.. Zależy mi na tym, aby trzymając naciśnięty przycisk na tym obrazku można było przemieścić całe okno programu. Pomoże ktoś?
I takie drugie pytanie dodatkowe, można zrobić zaokrąglone rogi programu? Tak jak bym np. chciał zrobić program o kształcie koła. Wiem, że trzeba dodać obrazek, ustawić Align na alClient i oczywiście BorderStyle formy na bsNone. Tylko że obrazków delphi .png chyba nie przyjmuje i mi to wyjdzie dalej jako prostokąt, a nie np. jako koło programu. Co radzicie?
Posiadam Delphi 2009.
Z góry dziękuję za pomoc.
Pozdrawiam ;)
przesuwanie całej formy:
onmousedown If Button = mbLeft then begin ReleaseCapture; SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0); end;
zaokrąglone rogi:
Object Inspektor > BorderStyle > bsNone. SetWindowRgn( Handle, CreateRoundRectRgn( 0,0,width,height,20,20 ),true ); SetWindowRgn(Panel2.Handle,CreateRoundRectRgn (0,0,Panel2.Width+1,Panel2.Height+1,20,20),true);;
przesuwanie komponentów:
OnMousDown: ReleaseCapture; SendMessage(TWinControl(Sender).Handle, WM_SYSCOMMAND, $F012, 0); $F008 - prawy dolny róg $F007 - lewy dolny $F006 - dół $F005 - prawa góra $F004 - lewa góra $F003 - góra $F002 - prawa strona $F001 - lewa strona i jeszcze: $F020 - minimalizacja $F030 - maksymalizajca