Form per Drag&Drop bewegen

[glkgereon]

Zitat von 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 )

gruss

genau das!!!

ich werd die codes von euch ma durchtesten

mit den kompos is nicht das dicke prob, da es eh nur 2 sind ^^

also das Mousedown-teil funzt...super!!!
geht das vielleicht dass man nicht das graue rechteck hat sondern direkt verschoben wird?

[Nils_13]

Delphi-Quellcode:

...

private
procedure WMNCHitTest(var Msg : TMessage); message WM_NCHITTEST;
end;

...



procedure TForm1.WMNCHitTest(var Msg : TMessage);
begin
    if GetAsyncKeyState(VK_LBUTTON) < 0 then
    Msg.Result := HTCAPTION
    else
    Msg.Result := HTCLIENT;
end;

Eine Alternative ... .

[glkgereon]

kann man da auch direkt verschieben? oder auch nur als umrandung mit dem grauen rahmen?

[MrKnogge]

Welche umrandung ?

Bei mir wird die Form direkt verschoben, aber vielleicht ist das auch OS abhängig.

gruss

[glkgereon]

also bei mir (windows 2000, SP4) wird zunächst (solang die maus gedrückt ist) nur ein 3-4 Pixel breiter grauer rahmen verschoben.
erst beim loslassen wird die eigentliche form positioniert.

[turboPASCAL]

Bei allen Programmen ?

Desktop -> Eigenschaften -> Darstellung -> Effekte -> Fensterinhalt beim Ziehen anzeigen

oder hab ich da jetzt was falsch verstanden?

[glkgereon]

upsala...ja, jetzt gehts^^

bei allen fenstern wurde so verschoben, aber aufgefallen ist es mir nur bei meinem programm.... *rofl*