Ошибка cannot focus a disabled or invisible window

Fantomas_RUS · #1 01.02.2013, 22:07

Создаю программно при щелчке на кнопку форму, так же программно на ней размещаю кнопку и пытаюсь эту форму показать как 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 · #2 01.02.2013, 22:28

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

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
 
end; 
...

Fantomas_RUS · #3 01.02.2013, 23:01

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

Код:

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 · #4 01.02.2013, 23:07

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

Fantomas_RUS · #5 01.02.2013, 23:08

Цитата:

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

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

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

angvelem · #6 01.02.2013, 23:17

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

Код:

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 · #7 01.02.2013, 23:29

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

angvelem · #8 01.02.2013, 23:32

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

Fantomas_RUS · #9 01.02.2013, 23:50

Цитата:

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

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

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

Fantomas_RUS · #10 01.02.2013, 23:54

Цитата:

Сообщение от 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 · #11 01.02.2013, 23:58

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

Fantomas_RUS · #12 02.02.2013, 00:23

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

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты

Этот пользователь сказал Спасибо angvelem за это полезное сообщение:
Fantomas_RUS (02.02.2013)