Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.17;
Скачать: CL | DM;

Вниз

Курсор   Найти похожие ветки 

 
Andrew22   (2002-06-06 09:03) [0]

Как сделать, чтоб курсор менялся по таймеру?


 
Song ©   (2002-06-06 09:10) [1]

Procedure Timer1Timer(Sender:TObject);
Begin
Scren.Cursor:= ... ;
// или св-во Cursor в каком-либо визуальном компоненте
End;


 
Bond ©   (2002-06-06 10:51) [2]

Поставь на форму компонент TTimer
На событие таймера OnTimer пишешь обработчик

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Screen.Cursor := crHourGlass; //Курсор - песочные часы
{Некоторые действия}
Screen.Cursor := crDefault; // Курсор - по умолчанию(обычно стрелка)
end;

Если хочешь, что бы курсор менялся, сам по себе, когда возникает событие OnTimer таймера, то меняешь обработчик

procedure TForm1.Timer1Timer(Sender: TObject);
var b : Boolean;
begin
b := not b;
if b
then Screen.Cursor := crHourGlass //Курсор - песочные часы
else Screen.Cursor := crDefault; // Курсор - по умолчанию(обычно стрелка)
end;





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

Текущий архив: 2002.06.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
8-55219
Maxus
2002-01-08 16:45
2002.06.17
проигрывать два Wav файла одновременно


1-55194
Demon[eXp]
2002-06-04 17:01
2002.06.17
Как руками создать TMemo и/или отсортировать в нём записи(строки)


1-55188
ctapik-net
2002-06-04 19:30
2002.06.17
Компиляция проектов под WinXP


3-55013
Wreck
2002-05-23 19:22
2002.06.17
КАК писать скрипты???????????


1-55066
Tahion
2002-06-05 17:40
2002.06.17
Как зделать автоповтор содержимого QReport?