Создаю программно при щелчке на кнопку форму, так же программно на ней размещаю кнопку и пытаюсь эту форму показать как ShowModal. Выскакивает ошибка cannot focus a disabled or invisible window.
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | 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;
|
В чём проблема не пойму, если кнопку не создавать всё нормально...
01.02.2013, 22:07
Ошибка cannot focus a disabled or invisible window
Древовидный вид