Zwei Komponenten auf einmal verschieben (zur Laufzeit)

[delphifan2004]

Hallo davar!

Dake erst mal für die schnelle Antwort! Super. Funktionirt!

Hab allerdings noch folgendes machen müssen:

Delphi-Quellcode:

type
 TForm1 = class(TForm)
 private
    counter: array[0..1] of Integer; //bei mehr Kompos größeres- oder dynamisches Array nehmen
 public
    procedure Bewegen...
 end;

implementation

procedure TForm1.Button1Click(Sender: TObject);
var MyEdit: TEdit;
begin
   MyEdit := TEdit.Create(Form1);
   with MyEdit do begin
     Parent := Form1;
     Name := 'EditKompo' + IntToStr(Counter[0]);  // HIER
     Left := 50;
     Top := 50;
     OnMouseDown:= Bewegen;
     Inc(Counter[0]);                             // UND HIER
   end;
end;

habe ich den Zähler einfügen müssen, sonst klappt der Einfügevorgang nur ein einziges mal. Danach kommt Exception: EComponentError -> Meldung: "Es gibt bereits Kompo mit gl. Namen"

Deshalb der Zähler. Nun hat jede Kompo nen anderen Namen.

Noch mal Danke für die schnelle Antwort.

Es grüßt

Delphifan2004