[Gelöst] PageControl Focus

[shmia]

Zitat von -=IOI=-:

Ich habe 2 PageControls, in denen jeweils eine Variable Anzahl an Tabs mit jeweils einem Memo vorhanden ist.

Ich denke mal, dass für diesen Zweck ein PageControl nicht das Richtige ist.
Wenn auf jedem TabSheet immer nur das Gleiche drauf ist (ein TMemo), dann kann man doch auch nur ein Memo in Verbindung mit einer ListBox einsetzen.
(Listbox links; Memo rechts daneben)
Der Benutzer klickt auf einen Eintrag in der Listbox und das Programm ändert daraufhin den Inhalt des Memo.
Natürlich müssen dann alle Texte irgendwo getrennt gespeichert werden. (z.B. in TListbox.Objects[])


Zu deiner Frage: du musst das Memo im Controls[]-Array suchen

Delphi-Quellcode:

function FindMemo(parent:Tcontrol):TMemo;
var i : integer;
begin
  for i := 0 to parent.ControlCount-1 do
  begin
    if parent.Controls[i] is TMemo then
    begin
      result := TMemo(parent.Controls[i]);
      Exit;
    end;
  end;
  result := nil;  // nix gefunden
end;