Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.09;
Скачать: CL | DM;

Вниз

Поиск окна...   Найти похожие ветки 

 
OlegG   (2002-03-06 16:36) [0]

Здравствуйте, уважаемые мастера!
Подскажите пожалуйста, столкнулся со следующей проблемой: необходимо проверить в моем приложении открыта мне нужная форма или нет для того, чтобы не открывать несколько экземпляров. Для этого я ищу окно: FindWindow(nil, "заголовок окна") и если результат <> 0, то вызываю форму: Form:= TForm.Create(Application); Но дело в том, что если я уже взывал эту форму, а потом ее закрывал по Close(), то FindWindow все равно возвращает результат отличный от 0. Может быть нужно что-то добавить в OnDestroy формы?


 
Виктор Щербаков ©   (2002-03-06 16:38) [1]

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree
end;


 
VuDZ ©   (2002-03-06 17:40) [2]

ShowWindow(hwnd, SW_SHOW) или SW_RESTORE И ваши волосы будут мягкими и шеловистыми.


 
Юрий Зотов ©   (2002-03-06 18:11) [3]

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree // Форма уничтожается при своем закрытии
end

procedure TForm1.FormDestroy(Sender: TObject);
begin
Form1 := nil // Ссылка на форму очищается при ее уничтожении
end;

И теперь создаем так:

if Form1 = nil then Form1 := TForm1.Create(Application);


 
OlegG   (2002-03-07 09:15) [4]

Большое спасибо всем ответившим...



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

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

Наверх




Память: 0.47 MB
Время: 0.012 c
3-26024
slc_g@yandex.ru
2002-04-16 14:21
2002.05.09
Мастера, как записать файл BMP в blob поле


1-26147
Krok
2002-04-24 11:28
2002.05.09
Цвет выделения в TEdit


1-26163
Lord BDV
2002-04-24 19:51
2002.05.09
Разработчики Delphi схалтурили


14-26246
QWest
2002-04-02 09:08
2002.05.09
Братва! Помогите!!!


3-26000
DRIVER
2002-04-04 17:25
2002.05.09
Где вы мастера!!!!!!!???????