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]