dynamisch erzeugte Komponenten numbenennen?

[oki]

Hi smart,

du kannst immer noch die Eigenschaft Tag dafür nutzen, welche Images gelöscht werden sollen und welche nicht. da du deine images aber zur Laufzeit erzeugst, kannst du dir auch eine eigene Klasse schreiben. Dort kannst du dann ganz einfach deine Eigenschaften einfügen und diese für die abfrage verwenden.

Delphi-Quellcode:

type
  TShootingImage = class(TImage)
  public
    property Deletable : Boolean read FDeletable write FDeletable;
  end;

Alle Images, die nicht gelöscht werden dürfen, kannst du so markieren:
  MyshootingImage.Deletable := False; und beim löschen folgendes:

Delphi-Quellcode:

procedure TForm1.DeleteImages;
var temp : TComponent;
    I : Integer;
begin
  for I := ComponentCount - 1 downto 0 do
  begin
    Temp := Components[I];
    if (Temp is TShootingImage) then
    begin
      IF (Temp as TShootingImage).Deletable then Temp.Free;
    end;
  end;
end;

Benötigst du weitere Eigenschaften (darf abgeschossen werden; beim erasten mal, zweiten mal ...) so implementiere sie einfach.

gruß oki