[Fantomas_RUS]

Создаю программно при щелчке на кнопку форму, так же программно на ней размещаю кнопку и пытаюсь эту форму показать как ShowModal. Выскакивает ошибка cannot focus a disabled or invisible window.

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);

var Forma : TForm;
    BitButton1 : TBitBtn;
    BitButton2 : TBitBtn;
    BitButton3 : TBitBtn;
    A : TDBGrid;
    B:TDBLookupListBox;


begin

Forma := TForm.Create(Self);
With Forma do
  begin
  Parent := Self;
  Left := 100;
  Top := 100;
  Height := 300;  // Высота формы
  Width := 300;   // Ширина формы
  BorderStyle := bsDialog;
  end;

BitButton1 := TBitBtn.Create(Forma);
With BitButton1 do
  begin
  Parent := Forma;
  Left := 20;
  Top := 235;
  Height := 25;  // Высота
  Width := 75;   // Ширина
  Caption :='Добавить';
  Visible := true;
  end;

Forma.ShowModal;
end;

В чём проблема не пойму, если кнопку не создавать всё нормально...

[angvelem]

Что-то я не пойму эту хитрость:

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);

end; 
...

[Fantomas_RUS]

Скопировал не совсем верно.....

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
 
var Forma : TForm;
    BitButton1 : TBitBtn;
    BitButton2 : TBitBtn;
    BitButton3 : TBitBtn;
    A : TDBGrid;
    B:TDBLookupListBox;
 
 
begin
 
Forma := TForm.Create(Self);
With Forma do
  begin
  Parent := Self;
  Left := 100;
  Top := 100;
  Height := 300;  // Высота формы
  Width := 300;   // Ширина формы
  BorderStyle := bsDialog;
  end;
 
BitButton1 := TBitBtn.Create(Forma);
With BitButton1 do
  begin
  Parent := Forma;
  Left := 20;
  Top := 235;
  Height := 25;  // Высота
  Width := 75;   // Ширина
  Caption :='Добавить';
  Visible := true;
  end;
 
Forma.ShowModal;
end;

[angvelem]

.............

[Fantomas_RUS]

Сообщение от angvelem

И что изменилось? Как был бред так и остался.

Вроде обновил

[angvelem]

Изменил немного

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  MyForm        : TForm;
  BitButton1    : TButton;
begin
  MyForm := TForm.Create(Self);
  with MyForm do
  begin
    Left   := 100;
    Top    := 100;
    Height := 300;  // Высота формы
    Width  := 300;   // Ширина формы
    BorderStyle := bsDialog;

    BitButton1 := TButton.Create(MyForm);
    with BitButton1 do
    begin
      Parent  := MyForm;
      Left    := 20;
      Top     := 235;
      Height  := 25;  // Высота
      Width   := 75;   // Ширина
      Caption :='Добавить';
      Visible := True;
    end;
  end;
  MyForm.ShowModal;
  MyForm.Free;
end;

Твоё обновление не сразу прошло, вот и не видел.

[Fantomas_RUS]

Странно, сперва попытался согласно твоему примеру подкорректировать свой, ошибка осталось. Потом полностью вставил твой пример, ошибка исчезла. Так на самом деле в чём косяк то был?

[angvelem]

Пытался Parent использовать и забыл кнопку занести внутрь создания.

[Fantomas_RUS]

Сообщение от angvelem

Пытался Parent использовать и забыл кнопку занести внутрь создания.

Так метод Parent он же "Свойство Parent указывает родителя (визуальный контейнер) элемента управления." Так как он мешает на рисоваться кнопке в созданной форме, или вопрос не о чём?

[Fantomas_RUS]

Сообщение от angvelem

Изменил немного

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  MyForm        : TForm;
  BitButton1    : TButton;
begin
  MyForm := TForm.Create(Self);
  with MyForm do
  begin
    Left   := 100;
    Top    := 100;
    Height := 300;  // Высота формы
    Width  := 300;   // Ширина формы
    BorderStyle := bsDialog;

    BitButton1 := TButton.Create(MyForm);
    with BitButton1 do
    begin
      Parent  := MyForm;
      Left    := 20;
      Top     := 235;
      Height  := 25;  // Высота
      Width   := 75;   // Ширина
      Caption :='Добавить';
      Visible := True;
    end;
  end;
  MyForm.ShowModal;
  MyForm.Free;
end;

А форме ты не задаешь что, ли Parent?

[angvelem]

С чего это? Ты ведь её не на родительской форме создаёшь, а делаешь самостоятельным окном.

[Fantomas_RUS]

Ошибка была в том, что я пытался новой созданной форме свойству Parent передать главную форму. Спасибо за разъяснение.