Hi!
Ich komm wieder mal nicht weiter,
ich hoffe ihr könnt mir helfen:
Ich möchte die hier zur Laufzeit erstellte Kompnente wieder entfernen.
Delphi-Quellcode:
var
imgnew:TImage;
x1,y1,imganz: Integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
imgnew:=TImage.Create(self);
imgnew.Parent:= SDIAppForm;
imgnew.Show;
imgnew.Canvas.Brush.Color:=clred;
imgnew.PopupMenu:=Popupmenu1;
imgnew.Canvas.Rectangle(x1,y1,x1+100,y1+100);
imgnew.Name:='Image'+IntToStr(imganz); // Namen ändern
imganz:=imganz+1;
x1:=x1+5; //neue Koordinaten
y1:=y1+5;
end;
procedure TForm1.lschen1Click(Sender: TObject);
begin
TImage().Free; // Hier sollte nacher die ausgewählte Kompnente irgendwie wieder entfernt werden
end;
Das Image, das das Popupmenü geöffnet hat, soll entfernt werden.
Zumindest hab ich mir das so vorgestellt
