Возможно баг?

← →
Red Baron (2005-10-26 02:23) [0]

Либо баг, либо мои кривые руки...
-cut-
procedure TForm1.Button3Click(Sender: PObj);
begin
Form2.Form.ShowModal;
Form2.Form.Hide;
end;
//Подгружаю форму2 кнопкой на форме1.
-cut-
procedure TForm2.Button1Click(Sender: PObj);
begin
Form2.Form.Free;
end;
// Закрываю форму2
-cut-
Первый раз все ок а на второй глюк. Форма два пустая и "размытая" без элементов закрывается только через X, что неправельно?

← →
Vladimir Kladov (2005-10-26 08:48) [1]

код создания есть? что значит на второй раз? вы ее уничтожаете, потом вызываете по кнопке 1, не создавая после уничтожения кнопкой 2?

← →
MTsv DN (2005-10-26 11:33) [2]

Вместо:

> -cut-
> procedure TForm1.Button3Click(Sender: PObj);
> begin
> Form2.Form.ShowModal;
> Form2.Form.Hide;
> end;
> //Подгружаю форму2 кнопкой на форме1.
> -cut-
> procedure TForm2.Button1Click(Sender: PObj);
> begin
> Form2.Form.Free;
> end;
> // Закрываю форму2
> -cut-
>

Надо:
procedure TForm1.Button3Click(Sender: PObj); begin NewForm2(Form2, Applet); Form2.Form.ShowModal; Form2.Form.Free; end; procedure TForm2.Button1Click(Sender: PObj); begin Form2.Form.Close; end;

С Уважением MTsv DN

← →
Red Baron (2005-10-28 23:52) [3]

Спасибо, проблема решена.

Возможно баг? Найти похожие ветки