VPF::Изменение курсора при выполнении задачи

kulikoff

Дата 5.10.2006, 16:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

Репутация: нет
Всего: 1

программа выполняет SQL-запросы. Мне необходимо, чтоб во время выполнения запроса курсор менял свой вид (курсор - это можно просто гиф-картинку подставить вместо него?). Как это реализовать?

_hunter

Дата 5.10.2006, 16:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

TForm.Cursor?

--------------------

Tempora mutantur, et nos mutamur in illis...

Dremlin

Дата 5.10.2006, 16:27 (ссылка)

(нет голосов)

Загрузка ...

Quo vadis?

Профиль
Группа: Участник
Сообщений: 157
Регистрация: 21.9.2006
Где: Киев

Репутация: нет
Всего: 4

Код


Form1.Cursor := crSQLWait;

--------------------

Каждый дурак знает, что до звезд не достать, а умные, не обращая внимания на дураков, пытаются...

kulikoff

Дата 5.10.2006, 16:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

Репутация: нет
Всего: 1

В обработчик какого события или куда эту строчку тулить?
А можно сделать так, чтоб картинку курсора подменяло на свой какой-нить jpg или gif?

Это сообщение отредактировал(а) kulikoff - 5.10.2006, 16:51

Romikgy

Дата 5.10.2006, 16:48 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

можно, только имхо не гиф и не джепег , а ани и кур

Добавлено @ 16:49
LoadCursorFromFile

Это сообщение отредактировал(а) Romikgy - 5.10.2006, 16:50

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

kulikoff

Дата 5.10.2006, 16:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

Репутация: нет
Всего: 1

и как это сделать? Подскажите кодом, если можно smile

kulikoff

Дата 6.10.2006, 08:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

Репутация: нет
Всего: 1

Так в какую часть кода вставить

Код

Form1.Cursor := crSQLWait;

Romikgy

Дата 6.10.2006, 09:03 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Цитата(kulikoff @ 6.10.2006, 07:13

)

Так в какую часть кода вставить

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

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

kulikoff

Дата 6.10.2006, 09:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

Репутация: нет
Всего: 1

а вернуть на место - это что прописать? Вместо crSQLWait...

Matematik

Дата 6.10.2006, 09:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

crDefault

kulikoff

Дата 6.10.2006, 10:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

Репутация: нет
Всего: 1

Спасибо большое!

kulikoff

Дата 6.10.2006, 10:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

Репутация: нет
Всего: 1

Не хочет менять smile

. Пишу такое вот:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Cursor:=crSQLWait;
end;

В ответ никакой абсолютно реакции... Подскажите, что неправильно сделал?

Dremlin

Дата 6.10.2006, 11:46 (ссылка)

(нет голосов)

Загрузка ...

Quo vadis?

Профиль
Группа: Участник
Сообщений: 157
Регистрация: 21.9.2006
Где: Киев

Репутация: нет
Всего: 4

мышкой по форме водил?

--------------------

Каждый дурак знает, что до звезд не достать, а умные, не обращая внимания на дураков, пытаются...

kulikoff

Дата 6.10.2006, 13:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

Репутация: нет
Всего: 1

Ага, никакой реакции

Romikgy

Дата 6.10.2006, 14:00 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Код


procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Cursor:=crSQLWait;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Cursor:=crDefault;
end;

работает над чистой формой, без кнопок и панелек!

Добавлено @ 14:01
так попробуй

Код


procedure TForm1.Button2Click(Sender: TObject);
begin
Screen.Cursor:=crSQLWait;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Screen.Cursor:=crDefault;
end;

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »