Fehler beim dynamischen Erstellen von Tabs

[.chicken]

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? :D

[xaromz]

Hallo,

Du bist doch inzwischen lange genug hier, um zu wissen, dass man auch die Fehlermeldung angeben sollte.

Gruß
xaromz

[.chicken]

Argh sorry ^^
Also es kommt ne schöne AV :D

"Access violation at address 00408D97 in module Client.exe. Read of address 00A0C000"

Hoffe das hilft weiter ;-)

[Udontknow]

Wo genau, bei welcher Zeile? Der Debugger ist dein Freund! :)

Edit: Ist PControl evtl. nicht initialisiert?

Cu,
Udontknow

[mkinzler]

Vielleicht nicht der Grund, aber gefährlich:

Delphi-Quellcode:

ATab := TTabSheet.Create(self); 
...
AFrame := TMsgFrame.Create(self);

[.chicken]

Also, aeh hab oben editiert wo der Fehler auftritt.
PControl habe ich so aufs Form gezogen also muesste es autmomatisch initialisiert sein..!?

Was vll noch zu erwähnen wäre, ich rufe die Prozedur aus ner anderen Unit auf!

Oeh was is an dem Code gefährlich mkinzler? Meinst du ich soll nich MessageForm, sondern self benutzen oder wie?

[Udontknow]

Wo kommt denn jetzt das MessageForm her? Instantiierst du TMessageForm mehrere Male?
Weise dem Frame mal den Parent Tab zu, anstelle InsertControl zu nutzen...

CU,
Udontknow

[.chicken]

Nein, also ich habe zwei Forms, die eine enthält ne Stringlist, wenn ich auf die klicke dann wird in der anderen diese Prozedur ausgeführt (also in der MessageForm). Die soll dann da ein Tab erstellen in dem schon auf der Form liegenden PageControl!

Habs ma geändert und Parent benutzt: Fehler kommt immernoch!

[mkinzler]

Zitat:

Oeh was is an dem Code gefährlich mkinzler? Meinst du ich soll nich MessageForm, sondern self benutzen oder wie?

Ja, dann bekommst du immer die richtige Instanz und nicht eine bestimmte, welche u.U. nicht intantiiert sein könnte.

[.chicken]

Stimmt, klingt logisch, danke für den Hinweis ;-)

Edit: Problem hats aber immernoch nicht geloest ^^