Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.07.23;
Скачать: 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 вся ветка

Текущий архив: 2006.07.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.038 c
2-1151845021
Gizza
2006-07-02 16:57
2006.07.23
Приоритет программы


3-1148184412
Аркадий
2006-05-21 08:06
2006.07.23
добавление поля в таблице


3-1147931584
KinnOk
2006-05-18 09:53
2006.07.23
Сохранение или отмена изменений


4-1144430576
Pojarnik
2006-04-07 21:22
2006.07.23
Ошибка при освобождении dll-ки(пример из Тейксеры и Пачеко)


15-1150966255
Skyle
2006-06-22 12:50
2006.07.23
Требуется программист Delphi на постоянную работу (Новосибирск)