Tabs erzeugen bei Ereignis im 2. Thread

**kcore**

Hi,
ich bin ein Anfänger was Delphi angeht, habe mir aber dennoch vorgenommen einen IRC-Client darin zu schreiben.
Ich benutze einen zweiten Thread für die Kommunikation mit dem Server. Das funktioniert auch alles, aber ich habe ein Problem mit dem öffnen von Tabs. Ich kann mit meiner Methode zwar das erste Tab öffnen, doch sobald ich das zweite öffnen möchte, reagiert das Programm nicht mehr.

Ich bin mir nicht sicher woran es liegt, da das Programm mehrere Schwachstellen hat. Zum einen greife ich vom 2. Thread auf die Arrays mem (Array of TMemo) und tab (Array of TTabSheet) zu, die ich auch im ersten Thread verwende (lässt sich das irgendwie vermeiden, beispielsweise durch eine Prozedur im 1. Thread die ich im 2. aufrufe? Wenn ja, die stell ich das am besten an?), zum anderen hab ich meinen Source mittlerweile so kaputtgespielt, dass das Programm beim Versuch ins Servertab zu schreiben durch eine Access Violation abbricht.

Das erste Tab / Memo erstelle ich wie folgt:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TmForm.btConnectClick(Sender: TObject);

var commTH: THandle;

    commTHid: DWORD;

begin

  FocusControl(edInput);

  btConnect.Enabled := False;

  btDisconnect.Enabled := True;

  SetLength(tab,Length(tab)+1);

  SetLength(mem,Length(mem)+1);

  tab[Length(tab)] := TTabSheet.Create(nil);

  tab[Length(tab)].Caption := 'Server';

  tab[Length(tab)].Name := 't_Server';

  tab[Length(tab)].PageControl := chatPC;

  mem[Length(mem)] := TMemo.Create(tab[Length(tab)]);

  mem[Length(mem)].Parent := tab[Length(tab)];

  mem[Length(mem)].Name := 'm_Server';

  mem[Length(mem)].Top := 0;

  mem[Length(mem)].Height := 385;

  mem[Length(mem)].Width := 609;

  commTH := CreateThread(nil, 0, @createCommTH, nil, 0, commTHid);

end;

Zugreifen tue ich dann vom zweiten Thread via:
TMemo(mForm.chatPC.FindComponent('m_Server')).Lines.Add(received); Anschließend sollen durch Kommandos wie beispielsweise /join neue Tabs geöffnet werden... Ebenfalls soll dies geschehen, sobald beim Parsing des Serveroutputs beispielsweise festgestellt wird, dass man eine PRIVMSG empfangen hat..

Könnt ihr mir bei diesem Problem weiterhelfen? Es handelt sich um ein Projekt für die Schule, am Montag ist Abgabetag und ich sitz an diesem Problem seit 2 Tagen mit der Gewissheit dass es irgendwas ganz einfaches sein muss auf das ich einfach nicht komme...

Tabs erzeugen bei Ereignis im 2. Thread

Tabs erzeugen bei Ereignis im 2. Thread

Forumregeln