Курсор и Хинт формы

← →
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;

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

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