Komponenten verschiebbar / Größe veränderbar

[cyborg]

habe das nun gelöst indem ich

Delphi-Quellcode:

procedure TForm1.Image1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
VAR S: TControl;
begin
Accept:=TRUE;
S:=Source as TControl;
with Sender as TControl do begin
S.Left:=Left+X;
S.Top:=Top+Y;
end;
end;

bei den objekten verwende. ist sicher nicht hübsch, erfüllt aber den zweck.
wenn wer was besseres hat, gerne!

danke für das resize-ding! echt cool.

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]