Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.07.10;
Скачать: [xml.tar.bz2];

Вниз

Как скрыть форму?   Найти похожие ветки 

 
grusty   (2003-06-26 16:29) [0]

Уважаемые, подскажите!
Во время выполнения процедуры мне необходимо сначала скрыть текущую форму, а затем продолжить выполнение этой процедуры, после чего закрыть эту форму. Помогите!

Этот пример не совсем удачный...

procedure TForm.OK_BtnClick(Sender: TObject);
begin
Hide;
...
...
Visible:=True;
Close;
end;


 
KILLER_ABV   (2003-06-26 16:30) [1]

Form1.hide - скрыть
Form1.Show - показать


 
Skier   (2003-06-26 16:33) [2]

>grusty © (26.06.03 16:29)
procedure TForm.OK_BtnClick(Sender: TObject);
begin
Hide;
...
...
Show;
Update;
Close;
end;



 
Skier   (2003-06-26 16:36) [3]

>grusty © (26.06.03 16:29)
procedure TForm.OK_BtnClick(Sender: TObject);
begin
Hide;
...
...
PostMessage(Handle, WM_CLOSE, ...);
end;


 
grusty   (2003-06-26 17:18) [4]

Я забыл уточнить: мне не нужно вновь показывать скрытую форму. В примере я делаю это лишь для того, чтобы корректно закрыть ее.


 
KILLER_ABV   (2003-06-26 17:29) [5]

В какойто момент процедури HIDE, по её завершении Close.


 
grusty   (2003-06-26 17:53) [6]

--> KILLER_ABV
Это не то.

Если использовать Close в начале процедуры, то форма закроется только после ее завершения. Мне же нужно, чтобы эта форма исчезла перед выполнением этой процедуры и больше не появлялась.


 
NDeu   (2003-06-26 17:57) [7]

Application.ProcessMessage



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

Форум: "Основная";
Текущий архив: 2003.07.10;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.008 c
3-31088
Леха
2003-06-16 13:04
2003.07.10
Люди! Можно ли из грида всю инфу сохранить в файл в формат Excel?


14-31412
Marser
2003-06-23 00:25
2003.07.10
Работа студента (в летний период и вообще)


4-31581
Top Gun
2003-05-10 14:30
2003.07.10
Как удалить окно в системе ?


3-31118
Max_
2003-06-17 16:50
2003.07.10
Trigger в Oracle


9-31064
Кен
2003-01-24 02:20
2003.07.10
GLScene Какие есть редакторы для создания, редактирования, конвер





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский