Ich habe die Prozedur abgeändert:
Delphi-Quellcode:
procedure TAboutFrame.InitPlugIn (Sender: TObject; Sheet: TTabSheet);
begin
if (Sender <> nil) then begin
if (Sender is TTAbSheet) then begin
ShowMessage (Sender.ClassName);
(Sender as tTabSheet).Caption := 'About Dialog';
end;
end;
end;
Nun funktioniert das Ganze so wie ich wollte, aber......
Warum ist der Sender mein TTabSheet?!? Müsste das nicht die Form sein - Aufrufeder Code steht in der Form.OnCreate
Delphi-Quellcode:
p := aFrame.MethodAddress ('InitPlugIn');
if Assigned (p) then
p (self, aSheet);
Ich verstehs nimmer... Ich dachte bisher das ich wüsste was SELF bedeutet, aber dies ist der Gegenbeweis....
mfg,
Alex