Form bsNone verschieben

[X-SKY]

Hallo,

wie kann ich denn einstellen, das eine Form, welche mit bsNone versehen ist, verschiebbar ist?

[HeinzJ]

Du kanst die Mausereignisse (MouseDown MouseMove) abfangen und entsprechend darauf reagieren

Delphi-Quellcode:

procedure TForm33.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift:
    TShiftState; X, Y: Integer);
begin
  self.Left := self.Left-10;
end;

[Fussball-Robby]

Tipp: Bevor du ein Thema erstellst, such erstmal nach den Worten aus deinem Titel Klick

[X-SKY]

Zitat von Fussball-Robby:

Tipp: Bevor du ein Thema erstellst, such erstmal nach den Worten aus deinem Titel Klick

Tut mir leid. Danke euch beiden für die Hilfe

[extrem]

Dafür ist eigentlich die Nachricht WM_NCHITTEST da.Fenster ohne Titelzeile verschieben