Einzelnen Beitrag anzeigen

Benutzerbild von hEiHaChI
hEiHaChI

Registriert seit: 30. Jul 2003
Ort: Potsdam
8 Beiträge
 
Delphi 5 Enterprise
 
#2

Re: Wie erschaffe ich einen Drag?

  Alt 27. Okt 2003, 11:58
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
  Mit Zitat antworten Zitat