Вниз
Скачать: CL | DM;

Нужно событие типа AfterFormShow???   Найти похожие ветки 

← →
Sirus ©   (2003-08-25 11:33) [0]

Привет Мастера...
Нужно событие настающее после показа формы, что-то типа AfterFormShow... Каким событием можно воспользоваться???


← →
Skier ©   (2003-08-25 11:36) [1]

А почему OnShow или OnActivate не устраивает ?


← →
Sirus ©   (2003-08-25 11:39) [2]

Потому-что в OnShow команда Hide или Close вызывает ошибку...
а OnActivate настает слишком часто... Мне только после создания и показа формы...


← →
Skier ©   (2003-08-25 11:42) [3]


> Потому-что в OnShow команда Hide или Close вызывает ошибку...

ИМНО, у тебя неправильная логика программы, если ты пытаешься
так извратится.
Объясни что хочешь сделать, может быть есть нормальный способ решения твоей проблемы.


← →
Романов Р.В. ©   (2003-08-25 11:43) [4]

Application.onIdle + флаг
или
PostMessage


← →
Sirus ©   (2003-08-25 11:55) [5]

Прога при загрузке должна проверить пару вещей и в зависимости от результата проверки должна загружаться дальше или выдать сообщение и выскочить...


← →
Skier ©   (2003-08-25 12:01) [6]

>Sirus © (25.08.03 11:55) [5]
Ну видишь как всё просто !
А ты в дебри полез...:)
Проверку "пары вещей" (думаю что за этим стоит имя и пароль ?)
нужно делать прямо в файле *.dpr и если параметры неверны, то просто не "грузить" главную форму приложения вообЧе, а сразу выходить.


← →
Sirus ©   (2003-08-25 12:04) [7]

Ясно...
Правда при этом в DPR приходится добавлять уйму модулей...


← →
VAleksey ©   (2003-08-25 12:05) [8]

Ну так и отруби это св-во OnActivate после первого же прохода.

procedure TForm1.FormActivate(Sender: TObject);
begin
ShowMessage("Oh ho ho !!");
Self.OnActivate := nil;
end;


← →
Skier ©   (2003-08-25 12:07) [9]

>Sirus © (25.08.03 12:04) [7]
Это ещё почему ?


← →
Calm ©   (2003-08-25 12:24) [10]

2 Sirus ©

1. В OnShow проверяешь, нужно ли показывать форму
2. Если не нужно, то шлеш самой форме сообщение WM_CLOSE. Причем шлеш его PostMessage, а не SendMessage.
Форма закроется как только откроется. На средненьких компах будет видно мигание, но IMHO это не критично.


← →
Skier ©   (2003-08-25 12:25) [11]

>Calm © (25.08.03 12:24) [10]
Может и не критично, но извратно.



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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.014 c
4-11022
Senator
2003-07-03 13:57
2003.09.04
NetRemoteTOD


1-10789
Боян Георгиев
2003-08-22 21:35
2003.09.04
Функции FindFirst и FindNext


3-10553
galexis
2003-08-11 16:29
2003.09.04
SQL запрос на последнюю дату внесения


14-10913
Kost
2003-08-18 07:19
2003.09.04
Графика


1-10745
Borgir
2003-08-25 08:36
2003.09.04
Прерывание функции




   Наверх