Eigene Komponente ???

[Bernd29bln]

okay hab vielen dank.

[jbg]

Zitat von Meflin:

property ImageList: TImageList read fImageList write fImageList;

Die Komponente sollte jetzt noch eine FreeNotification für die ImageList einrichten, da es sonst ziemlich stark kracht, wenn jemand die ImageList vom Formular nimmt.

[Meflin]

Ja schon klar. Aber darum ging es ja hier nicht so in etwa:

Delphi-Quellcode:

protected
  procedure Notification(AComponent: TComponent; Operation: TOperation); override;

procedure TFoo.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited Notification(AComponent, Operation);
  if (Operation = opRemove) and (fImageList <> nil) and (AComponent = ImageList) then
    ImageList := nil;
end;