MDI-окна

[BlackFishSQL]

Здравствуйте!

Опишу проблему! Есть главная форма(MainForm) и дочерняя(ChildForm).
Есть две кнопки CreateButton- создающаяя дочерние окна и кнопка Button1- кнопка для выравнивания окон. С нею то и проблемы.Я хочу сделать такой механизм. Выбирая в ComboBox1 вариант выравнивания и нажимая кнопку выровнять а хочу применить этот вариант! но что-то ни очень работает!
MainModule

unit MainModule;
...........
type
  TMainForm = class(TForm)
    Panel1: TPanel;
    CreateButton: TButton;
    Button1: TButton;
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    procedure CreateButtonClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

uses ChildUnit;

procedure TMainForm.CreateButtonClick(Sender: TObject);
begin
 ChildForm:=TChildForm.Create(Owner);
 Edit1.Text:=IntToStr(MDIChildCount);
end;

procedure TMainForm.Button1Click(Sender: TObject); // процедура выравнивания
begin
 case ComboBox1.ItemIndex of
  0 : Cascade;
  1 : begin
       TileMode:=tbHorizontal;
       Tile;
      end;
  2 : begin
       TileMode:=tbVertical;
       Tile;
      end;
 end;
end;
end.

И хотел ещё что бы в Edit1 на главнойформевыводилось текущее кол. доч форм.

[BlackFishSQL]

unit ChildUnit;

interface
..........
type
  TChildForm = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
end;

var
  ChildForm: TChildForm;

implementation

uses MainModule;

{$R *.dfm}

procedure TChildForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action:=caFree;
 MainForm.Edit1.Text:=IntToStr(MDIChildCount);
end;

end.

когда кол. доч. форм увеличивается то всё работает а когда 1 закрываю в edit 1 пишит 0.
с выравниванием о просто не риагирует.

[Аватар]

Если вы создаете несколько дочерних форм, то что будет в ChildForm? Правильно, указатель на последнюю созданную форму. Забудьте вообще про эту переменную при работе с MDI-формами. Смотрим свойства главной формы MDIChildCount и MDIChildren. Дочерние формы могут и уничтожаться. А где вы собираетесь счетчик в Edit1 уменьшать? Лучше всего наверно в OnDestroy дочерней формы. Соответственно и код в Button1Click никуда не годный.

[BlackFishSQL]

то есть в onDestroy дочерней формы написать что-то типа:
MainForm.Edit1.Text:=IntToStr(MDICh ildCount-1);

а сначало выполнится какое действие onClose или onDestroy& ведь в onClose я уже получается уничтожаю и лсвобождаю память присвоив соответствующее значение параметру Action.

Посмотри мой 1 пост продедуру выравнивания! Я везде убрал СhildForm.

[Аватар]

Можно и в OnClose если передаете caFree. Память освождает метод Destroy, который и вызывает OnDestroy перед освобождением памяти. А что в посте #1? ChildForm там так и осталось. Самый удобный способ - ActionList и стандарные Action-ы из групы Window. И нацелить на них пункты меню.

ADD

MainForm.Edit1.Text:=IntToStr(MainForm.MDIChildCount-1);

[BlackFishSQL]

Ага количество работает! А MDIChildCount это свойство главноного MDI окна?

А что тогда с выравниванием!

procedure TMainForm.Button1Click(Sender: TObject); // процедура выравнивания
begin
 case ComboBox1.ItemIndex of
  0 : Cascade;
  1 : begin
       TileMode:=tbHorizontal;
       Tile;
      end;
  2 : begin
       TileMode:=tbVertical;
       Tile;
      end;
 end;
end;