Hallo allemaal...
@Marcel: Sorry voor de mail, moest niet in de tiphoek, maar gewoon hier... Ik vondt het al een beetje vreemd, maar gewoon niet goed gekeken dus.
Oke:
Je kent het allemaal wel: van die schermen met Borderstyle = bsNone, Zoals bijvoorbeeld winAmp, waarbij je toch de forms kunt verplaatsen door willekeurig ergens op het scherm de muis ingedrukt te houden en vervogens het formulier te verplaatsen. Voor diegene die dat nog niet snappen/weten/gebruiken heb ik het volgende voorbeeld.
Voeg simpelweg de volgende code toe aan een control in de OnMouseDown event, met welke je het formulier wilt kunnen verplaatsen:
Code:
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
ReleaseCapture;
TWinControl(Form1).Perform(WM_SYSCOMMAND, $F012, 0);
end;
end;
Hierbij kan Form1 ook een ander object zijn... gok ik
In ieder geval kun je ook een formulier (in dit geval Form1) verplaatsen.
groetjes
Christiaan
Bookmarks