Hi Helmi,
hab ich's überlesen, oder hast du noch nicht erklärt, an welcher Stelle du das Durchlaufen der SetIcon-Methode erwartest?
Zur Design-Zeit, wenn du's über den
OI änderst?
P.S.: So muss es gemacht werden
Delphi-Quellcode:
procedure TTestCompo.SetIcon(Value: TIcon);
begin
if Value <> FIcon then
FIcon := Value;
end;
constructor TTestCompo.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
// Wenn hier schon ein Icon-Objekt erstellt werden soll
// und die Set-Methode aufgerufen werden soll, dann:
// Ansonsten hat das hier nix zu suchen!
SetIcon(TIcon.Create);
end;