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
