| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Возможно баг? [Delphi, KOL, Windows]
Red Baron © (2005-10-26 02:23:00)Либо баг, либо мои кривые руки...
-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, что неправельно?
Red Baron (2005-10-28 23:52:00) [1]Спасибо, проблема решена.
MTsv DN (2005-10-26 11:33:00) [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
Vladimir Kladov (2005-10-26 08:48:00) [3]код создания есть? что значит на второй раз? вы ее уничтожаете, потом вызываете по кнопке 1, не создавая после уничтожения кнопкой 2?
| |
