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