VPF::динамическое создание MDI формы

rOOxus

Дата 13.9.2009, 20:21 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 95
Регистрация: 28.8.2006

Репутация: нет
Всего: нет

Здравствуйте коллеги!

имеется MDI форма родитель TMainForm. при нажатии кнопочки создаю дите:

Код


procedure TMainForm.Button1Click(Sender: TObject);
var
   Form : TForm;
   Button : TButton;
begin
   Form := TForm.Create( nil );
   Form.FormStyle := fsMDIChild;
   Form.WindowState := wsMaximized;
   Form.BorderWidth := 1;
   Form.Caption := 'Дите';
   Form.Parent := MainForm;

   Button := TButton.Create( Form );
   Button.Parent := Form;
   Button.Caption := 'ОК';
   Button.Top := 10;
   Button.Left := 10;
end;

проблема в том что если создать два таких дитя, то при смене форкуса меду ними возникает матюк Cannot focus a disabled or invisible window.
может создаю как-то не правильно?..

pseud

Дата 15.9.2009, 10:46 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

а если так:

Код


type
  TMainForm = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    FCount: Integer;
  public
    { Public declarations }
  end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  FCount := 0;
end;

procedure TMainForm.Button1Click(Sender: TObject);
var
  Form: TForm;
  Button: TButton;
begin
  Inc(FCount);
  Form := TForm.Create(Self);
  wtih Form do
  begin
    Name := 'ChildForm' + IntToStr(FCount);
    FormStyle := fsMDIChild;
    WindowState := wsMaximized;
    BorderWidth := 1;
    Caption := 'Дите';
    Parent := MainForm;
  end;

  Button := TButton.Create(Form);
  with Button do
  begin
    Parent := Form;
    Caption := 'ОК';
    Top := 10;
    Left := 10;
  end;
end;

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »