Einzelnen Beitrag anzeigen

Benutzerbild von gmarts
gmarts

Registriert seit: 4. Apr 2004
Ort: Templin
290 Beiträge
 
Delphi 6 Enterprise
 
#4

Re: Form zur Laufzeit verschieben bei BorderStyle: bsNone?

  Alt 25. Jan 2005, 17:04
Hast du auch ganz unten gelesen?:

Zitat:
Um ein Formular ohne Titelleiste noch mit der Maus verschieben zu können, muß man diesem einen Klick auf die (nicht vorhandene) Titelzeile vorgaukeln, wenn der Anwender auf eine beliebige Stelle im Formular klickt. Dazu fügt man folgenden Code in die "OnMouseDown"-Methode des Formulars ein:


Delphi-Quellcode:
if ssLeft in Shift then begin
  ReleaseCapture;
  Self.Perform(WM_NCLBUTTONDOWN, HTCAPTION, varEmpty);
end;
Wenn das Form eine Titelleiste hat, funktioniert das natürlich auch.
procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Click;
end;
  Mit Zitat antworten Zitat