Form per Drag&Drop bewegen

[glkgereon]

Hi

wie kann ich es schaffen, dass ich formulare per drag&drop verschieben kann?
das problem ist das diese formulare keine Titelleiste haben werden, und somit mittels gedrückt halten der maus über der form bewegt werden müssen...

das drag&drop sollte möglichst auch funktionieren, wenn eigentlich in eine kompo (zb Memo) geklickt wurde...

hat da wer nen tipp oder ein beispiel?
ist drag&drop da überhaupt der richtige ansatz? oder sollte ich mir lieber was über mousedown und mousemove basteln?

[Ultimator]

Formular verschieben titelleiste ;)

[Airblader]

Zitat:

Zitat von Ultimator

Forumlar verschieben titelleiste ;)

Zitat:

Leider konnte die Suchanfrage nicht beantwortet werden,
da die gesuchten Begriffe nicht in der Datenbank vorhanden sind.

:mrgreen:

[Ultimator]

In solchen Fällen, wie du einen darstellst, verwende ich nur zu gerne das Wort "Depp" :P :mrgreen:

[glkgereon]

hmmm..was soll das jetzt?

3 Postings ohne sinn...

es geht eben nicht darum die form zu verschieben mittels der titelleiste...ich will im prinzip die "verschiebe-fähigkeit" der titelleiste auf die ganze form ausweiten, weil die titelleiste nicht da sein darf/soll...

[MrKnogge]

@Airblader
Ultimator wollte damit nur auf unsere hübsche Forn-Suche aufmerksam machen.

@Ultimator
Nich traurig sein, wenn dass niemand verstanden hat, wobei man, wenn du schon verlinkst, nun wirklich ein Resultat erwarten könnte.

Aber bevor ihr beiden euch noch die Köpfe einschlagt :mrgreen: ,
poste ich mal schnell den Source:

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (ssLeft in Shift) then begin
    ReleaseCapture;
    SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_MOVE+1,0);
    end;
end;

gruss

[Nils_13]

Hi,

meinst du so etwas ?

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Perform(wm_syscommand,$f012, 0);
end;

[MrKnogge]

Servus Nils,

er möchte sein Formular wie bei Winamp verschieben, sprich irgendwo auf die Form klicken, gedrückt halten und Formular verschieben und anschliesend wieder loslassen. (zumindest hab ich das so verstanden :gruebel: )

gruss

[turboPASCAL]

@MrKnogge ,in was unterscheiden sich die beiden Versionen?

Nachteil: Wenn sich auf der Form ein Bitmap (Images... usw.) befinden auf die man dann klickt lässt sich das Fenster nicht verschieben.


Luckie hat da mal was nettes gepostet: Fenster ohne Titelzeile verschieben

[MrKnogge]

Ich hab die funktion in die FormOnMouseMove-Procedure, die von Nils ist wohl in der ButtonDown-Procedure?.

Wenn du ein Image hast musst du lediglich der OnMouseDown des TImage die obige procedure zuweisen.

gruss