Eigene Komponente ???

[Bernd29bln]

okay hab vielen dank. :thumb:

[jbg]

Zitat:

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 :stupid: 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;