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