Ich krich hier immer n Fehler aber weiss nicht wo er liegt...habe es ziemlich genauso in einer alten Prozedur gemacht, wo alles funktioniert hat!
Delphi-Quellcode:
procedure TMessageForm.CreateTab(Name, Caption: String);
var
i: Integer;
ATab: TTabSheet;
AFrame: TMsgFrame;
begin
if not Assigned(PControl.FindComponent(Name)) then
begin
ATab := TTabSheet.Create(MessageForm);
ATab.Caption := Caption;
AFrame := TMsgFrame.Create(MessageForm);
AFrame.Name := Name; //von hier
ATab.InsertControl(AFrame); //nach hier kommt der Fehler ;-)
ATab.PageControl := PControl; //PControl ist mein PageControl
end
else
(PControl.FindComponent(Name) as TTabSheet).Highlighted := True;
end;
Wisst ihr wo da der Fehler liegt? Bin ich einfach wieder blind?
