MDI переключение окон

[Kata]

Всем привет!
В моем приложении создаются MDI окна и вкладки TabControl'а:

procedure TMainForm.CreateMDIChild(const Name: string);
var
  Child: TMDIChild;
begin
  { create a new MDI child window }
  Child := TMDIChild.Create(Application);
  Child.Caption := Name;
  if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);
  TabControl1.Tabs.Add(Name);
end;

И я хочу при переключении вкладок TabControla'а переключать окна
Вот такое событие OnChange:

procedure TMainForm.TabControl1Change(Sender: TObject);
begin
  MDIChildren[TabControl1.TabIndex].Show;
end;

И не работает(((
Замучался уже((
Помогите!

[ror13]

не всё так просто.... по идеи у тебя даже твои окна недолжны появляться...
придётсо гуглить или могу на мыло скинуть готовый код другой программы... но там много ненужного тебе... но суть таже...
вот код создания.. обрати внимание на создание grid и сравни со своим

gridtabsheet:= ttabsheet.Create(self);
gridtabsheet.PageControl:= pagecontrol1;
gridtabsheet.Caption:= opendialog1.FileName;
gridtabsheet.Visible:=true;
grid:=tdbgrid.Create(self);
grid.Parent:= gridtabsheet;
grid.Align:= alclient;
grid.Visible:= true;
ClientDataSet:= tClientDataSet.Create(nil);
DataSource:=tDataSource.Create(nil);

а вот тебе пример поиска(переключения)

procedure TForm2.PageControl1Change(Sender: TObject);
var
I: integer;
c: integer;
begin
for I := 0 to PageControl1.ActivePage.ControlCount - 1 do
if PageControl1.ActivePage.Controls[I] is tdbgrid then
begin
grid:=tdbgrid(PageControl1.ActivePage.Controls[I]);
searchingoption.Clear;
for c := 0 to grid.Columns.Count - 1 do
searchingoption.Items.Add(grid.Columns.Items[c].FieldName);
end;
searchingoption.ItemIndex:=0;
end;

зы: вроде енто именно то что ты спрашивал, хотя у мну голова своим забита, даже интерпретировать на твой лад код лень((...

[Kata]

Это ваще не в тему!
У меня используется TabControl и MDI Окна!

[ror13]

интерпретируй ... эта процедура у тебя ошибочна...
procedure TMainForm.CreateMDIChild(const Name: string);
повторю не всё так тривиально...
вы создаете своё миди окно а родителя окна куда дели?....
Child.Parent:=??? думайте... или оно у вас в цифровой абстракции висеть должно?
вторая тоже не верна...
я вам выложил код для 1 и 2 процедуры но с другими объектами... сомневаюсь лишь в том, что в вашем случае реализация мб проще(для 2-ой процедуры)...

[eduard93]

http://forum.ru-board.com/topic.cgi?...33&topic=11350

[Kata]

Всем спасибо вы меня только запутали) Помогли на другом форуме:

procedure TMainForm.CreateMDIChild(const Name: string);
var
  Child: TMDIChild;
begin
  { create a new MDI child window }
  Child := TMDIChild.Create(Application);
  i:=i+1;
  Child.Caption := Name + IntToStr(i);
  Child.WindowState := wsMaximized;
  TabControl1.Tabs.Add(Name + IntToStr(i));
end;
procedure TMainForm.TabControl1Change(Sender: TObject);
var
 j:integer;
begin
  for j:=1 to MDIChildCount do
  begin
    if MDIChildren[j].Caption = TabControl1.Tabs[TabControl1.TabIndex] then
    begin
      MDIChildren[j].Show;
      break;
    end;
  end;
end;

[eduard93]

А на каком форуме вы получили больше знаний?

[Kata]

Не хотел рекламировать, но:
http://forum.delphiexpert.ru/index.php