Wozu TNotifyEvent oder TEvent?

[Angel4585]

Also ich hab in einer Komponente eine Progressbar eingefügt, das sieht so aus:

Delphi-Quellcode:

private
 FProgressBar: TProgressBar;
published
 property ProgressBar: TProgressBar read FProgressBar write SetProgressBar;


procedure TKomponente.SetProgressBar(const Value: TProgressBar);
begin
if FProgressBar <> Value then
 begin
 FProgressBar := Value;
 if Value <> nil then
  Value.FreeNotification(Self);
 end;
end;

Wenn du die Komponente jetzt im Objektinspektor anschaust kannst du eine Progressbar zuweisen, d.h. du nimmst eine Progbar, ziehst die auf die Form und wählst dann in der Progressbareigenschaft deine Progbar aus(wie bei "Menu" bei der Form)
das müsste bei einem Objekt auch gehen, die musst dann eben per Code das ganze zuweisen
Kompo.Progressbar:=Progressbar1 im Objekt selber kannst du dann der FProgressbar die Werte zuweisen die dann im Programm von der Progressbar1 übernommen werden.

Mfg