Wie erschaffe ich einen Drag?

[gal3v]

Ich habe eine CLX-Anwendung gebastelt, bei der ich keine Border habe, also auch keine Titelleiste!
Wie schaffe ich es, einem Button zuzuweisen, dass sich, wenn ich ihn clicke und gedrueckt halte, die Anwendung beliebig hin und her bewegen kann! (Drag)

thx

[hEiHaChI]

Moin,

probiers mal hiermit:

Delphi-Quellcode:

private
    procedure HandleLBtnDn(var msg: TMessage); message WM_LBUTTONDOWN;
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

procedure TForm1.HandleLBtnDn(var msg: TMessage);
begin
  Sendmessage(Self.Handle, WM_NCLBUTTONDOWN, HTCAPTION, msg.LParam);
end;

Wobei HandleBtn dein Button ist, der gedrückt werden soll um zu verschieben.

MfG hEiHaChI

[Luckie]

Ob das SendMessage die CLX Bibliothek mitmacht, wage ich etwas zu bezweifeln. Aber ziemlich sicher bin ich mir, dass es unter Linux bestimmt nicht so geht.

[hEiHaChI]

Stimmt, das könnte ein Problem werden.

[gal3v]

Ich werds ausprobieren...
kann zur zeit nicht...
wenns nicht funzt, dann meld ich mich morgen wieder!!!

[Mirilin]

Sowas ähnliches gabs hier.