Forum: Sonstige Fragen zu Delphi
by junale,
10. Feb 2006
So nun habe ich noch weitere Versuche gemacht - Ich habe zum Spass eine Function definiert:
TAboutFrame = class(TFrame)
procedure PlugInInformation (Sender: TObject; var Info: TAEJPlugInInformation);
procedure InitPlugIn (Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
Forum: Sonstige Fragen zu Delphi
by junale,
9. Feb 2006
Ich habe die Prozedur abgeändert:
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;