Fenster verschieben (ohne Titelleiste!)

TimonWorld · Beiträge: 397

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

*froh*[/url]

Takeshi · Beiträge: 64

delphi-forum.de/view...9771872fb25278eefcfe
: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.
www.normanbauer.com/components/ -> Moving Components
direkter download:
www.normanbauer.com/components/moving.zip

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Delphi-Quelltext

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

markieren

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 · Beiträge: 397

Da war ich mal wieder blin :nut:

. Aber trotzdem danke es funktioniert!

Nathaloon · Hält's aus hier Beiträge: 1

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 · Beiträge: 64

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

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme