Главная страница
    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
3-1201334641
mega
2008-01-26 11:04
2009.10.25
DirectMysqlObjects (TMySQLClient, TMysqlResult) + Jpeg


2-1251200949
yantux
2009-08-25 15:49
2009.10.25
Как конвертнуть extended в word?


15-1250927746
palva
2009-08-22 11:55
2009.10.25
День Флага


15-1251178540
Andy BitOff
2009-08-25 09:35
2009.10.25
Что думают знатоки по поводу такой конфигурации?


2-1251091205
belmol
2009-08-24 09:20
2009.10.25
directx





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