Einzelnen Beitrag anzeigen

davar

Registriert seit: 4. Feb 2005
311 Beiträge
 
Turbo Delphi für Win32
 
#1

Zwei Komponenten auf einmal verschieben (zur Laufzeit)

  Alt 26. Feb 2005, 21:01
Hallo ihr da draussen, die an diesem Samstagabend auch nix besseres zu tun haben als in der Stube zu hocken und sich mit Delphi rumzuquälen

Mein Problem heute:

ich möchte ein Edit-Feld zur Laufzeit auf dem Formular verschieben können. Das habe ich nach folgendem Prinzip gelöst (der Code ist nicht von mir, habe ihn von einer Delphi-Website ):

Delphi-Quellcode:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const sc_dragmove = $f012;
begin
  ReleaseCapture;
  TWinControl(Image1).perform(wm_syscommand,sc_dragmove, 0);
end;
Mit diesem Code (etwas geändert, so dass ich damit ein Edit-Feld bewege und nicht Image1), klappt es ganz gut. Das Problem ist jedoch, dass an das Edit-Feld auch ein Label "angekoppelt" werden soll, so dass es sich gemeinsam bewegt.

Hat jemand eine Ahnung, wie ich das hinbekommen könnte?

MfG

davar
  Mit Zitat antworten Zitat