Form1.Borderstyle:=BsNone; // Formular verschieben ?

retnyg · Verfasst: Mi 15.12.04 14:54

Hi,
wie kann ich zur Laufzeit ein Formular dessen Borderstyle auf BsNone gesetzt ist, verschieben ?
Das Formular lässt sich mit der Maus nirgends "anpacken".

matze.de · Verfasst: Mi 15.12.04 14:57

also du kannst so ein verschieben wie die leiste es macht simulieren,probier mal das hier:

markieren

Delphi-Quelltext

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

procedure TForm1.MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
const
  SC_DRAGMOVE = $F012;
begin
  if (ssLeft in Shift) then
  begin
    ReleaseCapture;
    Form1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
  end;
end;

ansonnsten kannst du die variablen Left und Top ändern.

mfg matze

_________________
si tacuisses, philosophus mansisses.

retnyg · Verfasst: Mi 15.12.04 15:02

Super, danke :-)

))

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme