| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Курсор и Хинт формы
antonn © (2006-05-28 13:21:00)ну вот, дожился, спрашиваю такие вещи...:)
сама задача - есть форма, "пустая", т.е. никаких визуальных контроллов на ней нет. Визуально на форме есть несколько областей (не суть важно, но пускай - на форме рисуются несколько прямоугольников через canvas), где курсор нужно сменить на hand, и вывести всплывающую подсказку. Т.е. аналогично, если бы на месте этих областей лежали бы панели с выставленными такими св-вами. Вопрос - как наиболее правильно это реализовать? :)
ЗЫ формы динамически создаются от одного типа, не главные.
antonn (2006-05-28 13:38:00) [1]кстати, а как использовать системный Hand-курсор? а то в инспекторе ставится ресурсный курсор, а не системный...
unknown (2006-05-28 13:33:00) [2]А.. еще хинт:
if PtInRect(Rect(0, 0, 200, 200), Point(x, y)) then
begin
Cursor := crHandPoint;
Hint := 'TEST';
ShowHint := True;
end
else begin
Cursor := crArrow;
ShowHint := False;
end;
unknown (2006-05-28 13:30:00) [3]
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: integer);
begin
if PtInRect(Rect(0, 0, 200, 200), Point(x, y)) then
Cursor := crHandPoint
else
Cursor := crArrow;
end;
| |
