Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, уважаемые эксперты!
Вопрос такой...
Как сделать так, что бы форма была не только поверх всех объектов, но и покрывала указатель мыши?
Премного благодарен...

Вопрос задал: padonak (статус: Посетитель) Вопрос отправлен: 1 февраля 2010, 03:13 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Егор

Здравствуйте, padonak!
C такими знаниями и писать вирусы?
Какие мы оптимистичные! :))))
Чтобы форма была поверх всех остальных, свойство FormStyle делаем равным fsStayOnTop.
Разместить форму "поверх" курсора мыши невозможно. Но можно сделать так, чтобы над формой курсор мыши исчезал. Для этого свойство Cursor устанавливаем в crNone.
Делаем двойной щелчок по форме и прописываем туда:

procedure TForm1.FormCreate(Sender: TObject);
begin
  FormStyle:=fsStayOnTop;
  Cursor:=crNone;
end;

Ответ отправил: Егор (статус: 10-ый класс) Время отправки: 1 февраля 2010, 05:47 Оценка за ответ: 5

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.