-
-
-
Par landryyorobo le 4 Décembre 2013 à 06:58
Delphi permet de pouvoir déplacer un formulaire sans bordure grace à n'importe quel contenneur graphique (Form, Panel ...)
Il suffit de placez le code suivant sur la propriété OnMouseDown du contenneur:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DRAGMOVE = $F012;
begin
if Button = mbLeft then
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
end;
votre commentaire
Suivre le flux RSS des articles de cette rubrique
Suivre le flux RSS des commentaires de cette rubrique