Witam
Na początku opisze problem!
Na formę( MDIForm) wżucam TPageControl i przycisk, mam również drógą formę (MDIChild). Na przycisku pod zdażeniem onClick wzucam procedure :
[code]
procedure TMainForm.ToolButton1Click(Sender: TObject);
var
NewTabSheet:TTabSheet;
I:integer;
T:integer ;
Child:TChildForm;
begin
NewTabSheet := TTabSheet.Create(Child);
NewTabSheet.PageControl := PageControl1;
try
Child:=TChildForm.Create(PageControl1);
except on exception do
Showmessage('Niemogę utworzy okna MDI');
end;
T:=PageControl1.PageCount;
I:=MDIChildCount;
Child.Caption:=(intToStr(I));
NewTabSheet.Caption:=':'+Child.Caption+':'+(intToStr(T));
end;
[/code]
Chciałbym aby tak utworzone dynamicznie zakładki sterowały otworzonymi oknami MDIChild, w pewien sposób to osiągnołem ponieważ po zamknięciu jednej z utworzonych form, zamyka się również zakłądka utworzona wraz z tą formą.
Sterowanie miałoby sie odbywać tak jak np.: w przeglądarkach typu "Opera" lub "My IE", czyli po zmianie zakładki miałoby sie uaktywnić okno utworzone razem z tą zakładką i odwrotnie.
Próbowałem na różne sposoby lecz niemogłem znaleŹć rozwiązania, będę bardzo wdzięczny za jaką kolwiek pomoc w rozwiązaniu problemu.
Pozdrowienia