07.04.2010, 07:03
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
С нами:
10060964
Репутация:
52
|
|
Сообщение от SkyLine32
Мне нужно из процедуры:
procedure TForm1.FormHide(Sender: TObject);
begen
...
end;
вызвать таймер, то есть после сворачивания формы должен запустится таймер:
procedure TForm1.FormHide(Sender: TObject);
begin
Label1.Caption := 'Hello World';
{ после этого запускаем тут таймер который будет влиять на то что находится ниже }
ShowMessage('Будь проклят этот мир!!!');
end;
Ну это всего лишь пример. Как можно сделать подобную хрень? хелп!
Есть Вариант типа "свернуть", Поместить в трей, а окно спрятать тогда:
СсылкО
PHP код:
Procedure ControlWindow(Var Msg:TMessage); message WM_SYSCOMMAND;
...
Procedure TForm1.ControlWindow(Var Msg:TMessage);
Begin
IF Msg.WParam=SC_MINIMIZE then
Begin
MessageBox(0,'Minimized','Мы типа решили свернуть окно',32);
ShowWindow(Handle,SW_HIDE); // Скрываем форму
// добавляем иконку в трей
// Запускаем таймер
// ShowWindow(Handle,SW_SHOW); // Показываем форму
End
else
inherited;
End;
Последний раз редактировалось JnK; 07.04.2010 в 07:33..
|
|
|