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

Вниз

Событие показа формы.   Найти похожие ветки 

 
Д С   (2008-09-22 01:14) [0]

Мне нужно выполнить некое действие сразу после показа формы. Как это сделать?
OnShow срабатывает до показа.


 
Германн ©   (2008-09-22 01:23) [1]


> Д С   (22.09.08 01:14)
>
> Мне нужно выполнить некое действие сразу после показа формы.
>  Как это сделать?
> OnShow срабатывает до показа.
>

OnActivate не подойдет? Но это палка о двух концах.


 
Дмитрий С   (2008-09-22 01:32) [2]

Это не то...

Пока решил так:
procedure TMainForm.FormShow(Sender: TObject);
begin
 PostMessage(Handle, WM_AFTERSHOW, 0, 0);
end;

procedure TMainForm.WMAFTERSHOW(var Msg: TMessage);
begin
 ShowMessage("Тест:)");
end;


 
Германн ©   (2008-09-22 01:46) [3]


> Дмитрий С   (22.09.08 01:32) [2]
>
> Это не то...
>
> Пока решил так:

Ну для ряда случаев действительно хорошее решение PostMessage. Вот только "сразу"?
Ну и перестань менять ники в одной и той же ветке! Надоело. А модераторы могут и забанить. Да и должны.


 
Дмитрий С   (2008-09-22 01:50) [4]


> Вот только "сразу"?

Практически сразу. Пользователь ничего не успеет нажать это точно.


> Ну и перестань менять ники в одной и той же ветке! Надоело.
>  А модераторы могут и забанить. Да и должны.
>

Я не слежу за никами - мозила сама подставляет. а по какому признаку, мне не известно


 
Германн ©   (2008-09-22 02:09) [5]


> Дмитрий С   (22.09.08 01:50) [4]
>
>
> > Вот только "сразу"?
>
> Практически сразу. Пользователь ничего не успеет нажать
> это точно.
>

Тебе известно понятие "везёт"?

> Я не слежу за никами - мозила сама подставляет. а по какому
> признаку, мне не известно
>

Тогда прощай.


 
Дмитрий С   (2008-09-22 02:13) [6]


>
> Тебе известно понятие "везёт"?

Хотя бы теоретически, ты сможешь нажать на форму, которая еще не показана?


 
Дмитрий Белькевич ©   (2008-09-22 03:18) [7]

Так она же уже показана. А чем OnShow не подходит?



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

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

Наверх




Память: 0.46 MB
Время: 0.049 c
15-1250890438
Германн
2009-08-22 01:33
2009.10.25
Extra-USB порты на матплате.


2-1250066321
kostyl_kostyl
2009-08-12 12:38
2009.10.25
TspClient и TspServever


2-1251099283
abhtr
2009-08-24 11:34
2009.10.25
CreateProcess


6-1207567582
Real
2008-04-07 15:26
2009.10.25
FTP индикация закачки больших файлов


15-1251360949
Cyrax
2009-08-27 12:15
2009.10.25
Что означает термин "функциональная версия" сайта ?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский