Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Fenster verschieben (ohne Titelleiste!)


TimonWorld - Sa 09.08.03 22:18
Titel: Fenster verschieben (ohne Titelleiste!)
Hallo @all!

Ich will (wenn ich den BorderStyle=bsNone hab) das Fenster verschieben können mit der Maus, wie einigen Autoruns. Oben ohne und man kann das Fenster trotzdem woanders hinziehen.

WER WEIS WIE ES GEHT :?:

Ich wäre dann sehr :D *froh*[/url]


Takeshi - So 10.08.03 01:34

http://delphi-forum.de/viewtopic.php?t=7875&highlight=scdragmove+f012&sid=36188f0f4e7d9771872fb25278eefcfe
:arrow: suchen wäre vielleicht nicht verkehrt gewesen :roll:

hier gibt es noch eine komponente, die das auch erledigt. habs nicht getestet, aber die form dockt dann auch so hübsch am fensterand an.
http://www.normanbauer.com/components/ -> Moving Components
direkter download:
http://www.normanbauer.com/components/moving.zip


Delete - So 10.08.03 03:14


Delphi-Quelltext
1:
procedure WMLBUTTONDOWN(var msg: TMessage); message WM_LBUTTONDOWN;                    


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
procedure TForm1.WMLBUTTONDOWN(var msg: TMessage);
begin
  if msg.Msg = WM_LBUTTONDOWN then
  begin
    SetCursor(LoadCursor(0, IDC_SIZEALL));
    SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, msg.LParam);
  end;
end;


TimonWorld - So 10.08.03 10:13

Da war ich mal wieder blin :nut: . Aber trotzdem danke es funktioniert! :D :D :D :D :D


Nathaloon - So 10.08.03 17:59

Hi,
dazu hätte ich mal ne Frage, wie kann ich die Form verschieben, wenn diese aber Transparent ist, und nur nen Image drauf angezeigt wird (welches die Form ersetzt (Design)) ?


Takeshi - So 10.08.03 19:00

Dann machst du das mit dem OnMouseDown Ereignis von dem Image

@timon bin ja selbst gerne mal zu blind zum suchen, das problem ist wenn man das stichwort nicht kennt