Hallo miteinander,
Ich stehe gerade vor einem kleinen Problem bei dem ich nicht so recht weiter weiß. Ich erstelle über eine Function einige kleine Shapes auf meinem Form. Diese Shapes möchste ich jedoch zur Laufzeit gerne verschieben. Hier ist auch schon das Problem: Dadurch das der Name variabel vergeben wird kann ich diese nicht direkt ansteuern.
Gibt es eine Methode um diese dennoch zu verwalten?
Hier die Function:
Delphi-Quellcode:
function Shape_gen(Name: String):String;
var
Shape : TShape;
begin
Shape := TShape.Create(Form1);
With Shape do
begin
Parent := Form1;
Left := Round(Form1.Width/2);
Top := Round(Form1.Height/2);
Width := 30;
Height := 30;
Shape := stCircle;
Name := Name;
end;
end;
Der Name des Shapes wird als Parameter übergeben und derzeit von einem entferntem
TCP Server vergeben. Der Name ist jedoch innerhalb der Applikation bekannt.
Vielen Dank im voraus.