Глобальные объекты в Дельфи. Их свойства и методы
Категория реферата: Рефераты по информатике, программированию
Теги реферата: инновационная деятельность, задачи с ответами
Добавил(а) на сайт: Голышев.
Предыдущая страница реферата | 1 2 3 4 5 | Следующая страница реферата
procedure Tform1.Count;
begin
label1.Caption:=IntToStr(StrToInt(label1.caption)+1);//увеличиваем счетчик
Done:=false;
end;
procedure TForm1.stop(var Msg:Tmsg; var Handled:boolean);
begin
if Msg.message=WM_KEYDOWN then begin //нажата любая клавиша
Application.OnMessage:=nil;//сообщение не обрабаьывать
Application.OnIdle:=nil;//Отменить фоновую работу
Handled:=true;//сообщение обработано
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.OnIdle:=count;//процедура обработки простоя
Application.OnMessage:=Stop;//процедура обработки сообщений
end;
end.
Еще у объекта TApplication есть ряд полезных свойств. Их названия и смысл приведены в таблице.
|