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

Вниз

Как програмно закрыть OpenDialog ?   Найти похожие ветки 

 
Альф ©   (2003-12-01 15:28) [0]

Ведь у него нету метода Close - хотя обработчик OnClose есть.

procedure TForm1.FormActivate(Sender: TObject);
begin
OpenDialog1.Execute();
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
// А вот тут необходимо закрыть OpenDialog1
end;


 
serge   (2003-12-01 15:34) [1]

procedure .....
var OD : TOpenDialog;
begin
OD:=TOpenDialog.Create(...);
if OD.Execute then
...
OD.Free;
end;


 
PVOzerski ©   (2003-12-01 15:37) [2]

Дык ведь модальный он...
Найти выход, IMHO, можно - из другого thread"а послать разумное сообщение (вернее всего, сработает тривиальное WM_CLOSE) - только вот, видимо, не прямо хэндлу =OpenDialog1.Handle, а =GetParent(OpenDialog1.Handle). Зачем в VCL сделано так - не знаю, но опыт свидетельствует о такой тонкости.


 
Альф ©   (2003-12-01 15:42) [3]

Озерский - Вы гений ! и как я сам не додумался :(
потому как
SendMessage(OpenDialog1.Handle, WM_CLOSE, 0,0);
действительно не срабатывало :(


 
serge   (2003-12-01 15:46) [4]

sorry ia voobse ne v temu napisal :o(



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

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

Наверх




Память: 0.47 MB
Время: 0.02 c
14-36825
Думкин
2003-11-19 04:29
2003.12.12
С днем рождения! 19 ноября.


14-36801
sashas
2003-11-18 17:17
2003.12.12
А почему девушек-программеров почти нет?


8-36768
Norlin
2003-08-09 21:17
2003.12.12
Как на ходу грузить картинки из DLL в Игру ?


1-36660
Magical
2003-11-30 17:08
2003.12.12
Ищем только папки


4-36889
Sergey128
2003-10-17 10:51
2003.12.12
Дополнительные кнопки в заголовке формы