Delphi Zwei Komponenten auf einmal verschieben (zur Laufzeit)

Thema durchsuchen

Ansicht

Themen-Optionen

Zwei Komponenten auf einmal verschieben (zur Laufzeit)

Ein Thema von davar · begonnen am 26. Feb 2005 · letzter Beitrag vom 19. Mär 2005

Vorheriger Beitrag

Nächster Beitrag

ReDoX

(Gast)

n/a Beiträge

Re: Zwei Komponenten auf einmal verschieben (zur Laufzeit)

27. Feb 2005, 00:53

HI,

Das dürfte genau das machen was du suchst

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

const sc_dragmove = $f012;

begin

  ReleaseCapture;

  TWinControl(Edit1).perform(wm_syscommand,sc_dragmove, 0);

end;

procedure TForm1.FormPaint(Sender: TObject);

begin

 Label1.Left := Edit1.Left;

 Label1.Top := Edit1.Top - Label1.Height;

end;

Mfg ReDoX