Form verschieben

PhilGo · Beiträge: 315 Win 98, Win Longhorn ;-)

Grüßt euch,

man kann ja ein Programm per Titelleiste verschieben. So nun meine Frage: Wie kann ich mein Prog auf einer beliebigen Stelle verschieben?

Mfg PhilGo :?:

Moderiert von tommie-lie: Topic verschoben

_________________
Sie werden dich finden und töten... Söhne der großen Bärin!

G-McKree · Beiträge: 178

form1.left
form1.top

ErnestoChe · Verfasst: So 14.09.03 18:31

Hi,

folgenden Code in OnMouseMove-Ereignis der Form schreiben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (ssLeft in Shift) then
  begin
    ReleaseCapture;
    SendMessage(Self.Handle, WM_SYSCOMMAND, SC_MOVE + 1, 0);
  end;
end;

Wenn du die Form z.B. mit einem Panel verschieben willst, musst du natürlich den Code ins OnMouseMove des Panels schreiben.

MFG

- Ernesto -

PhilGo · Beiträge: 315 Win 98, Win Longhorn ;-)

Vielen Dank für die Info und Quelltext.

Mfg PhilGo

_________________
Sie werden dich finden und töten... Söhne der großen Bärin!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme