Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c