Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Form ohne Borderstyle beweglich machen (https://www.delphipraxis.net/132783-form-ohne-borderstyle-beweglich-machen.html)

Phil125 19. Apr 2009 19:25


Form ohne Borderstyle beweglich machen
 
Ja der titel sagt eigentlich alles gibt es eine möglichkeit trotz
Borderstyle=none die form beweglcih zu machen ?

jaenicke 19. Apr 2009 19:29

Re: Form ohne Borderstyle beweglich machen
 
Das musst du selbst mit OnMouseXXX programmieren (dazu gab es auch schon Beispiele).

// EDIT:
Sogar in der Library... :roll:
http://www.delphipraxis.net/internal...t.php?p=699649

Flips 19. Apr 2009 19:33

Re: Form ohne Borderstyle beweglich machen
 
Dazu gabs doch erst zuletzt etwas...
*Klick*

Hobby-Programmierer 19. Apr 2009 19:46

Re: Form ohne Borderstyle beweglich machen
 
Ich habe immer dies benutzt.
Delphi-Quellcode:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const SC_DRAGMOVE = $F012;
begin
  if Button = mbLeft then begin
    ReleaseCapture;
    Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
  end;
end;

Fussball-Robby 19. Apr 2009 19:48

Re: Form ohne Borderstyle beweglich machen
 
Zitat:

Zitat von Hobby-Programmierer
Delphi-Quellcode:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const SC_DRAGMOVE = $F012;
begin
  if Button = mbLeft then begin
    ReleaseCapture;
    Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
  end;
end;

Wobei bei dieser Lösung die Abfrage Button = mbLeft unnötig ist, da dieses Verschieben sowieso nur auf die linke Maustaste reagiert.

Gruß

Hobby-Programmierer 20. Apr 2009 03:55

Re: Form ohne Borderstyle beweglich machen
 
Jap, stimmt schon. Ich habe den Code aus einer meiner Programme kopiert und da muss ich auch auf die rechte Maustaste reagieren.

LG Mario


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:20 Uhr.

Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf