Скачать: CL | DM;

Курсор и Хинт формы   Найти похожие ветки 

← →
antonn ©   (2006-05-28 13:21) [0]

ну вот, дожился, спрашиваю такие вещи...:)

сама задача - есть форма, "пустая", т.е. никаких визуальных контроллов на ней нет. Визуально на форме есть несколько областей (не суть важно, но пускай - на форме рисуются несколько прямоугольников через canvas), где курсор нужно сменить на hand, и вывести всплывающую подсказку. Т.е. аналогично, если бы на месте этих областей лежали бы панели с выставленными такими св-вами. Вопрос - как наиболее правильно это реализовать? :)

ЗЫ формы динамически создаются от одного типа, не главные.

---

← →
unknown ©   (2006-05-28 13:30) [1]

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;

---

← →
unknown ©   (2006-05-28 13:33) [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;

---

← →
antonn ©   (2006-05-28 13:38) [3]

кстати, а как использовать системный Hand-курсор? а то в инспекторе ставится ресурсный курсор, а не системный...

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c