Отловить фокус мышки на кнопке заголовка rxDBGrid

← →
ЮРИЙ_К (2002-08-20 13:42) [0]

Коллеги, может кто подскажет, возможно-ли такое САБЖ. Хотелось-бы, зная, на какую кнопку хочет нажать пользователь - менять форму курсора.

← →
lenin (2002-08-20 13:45) [1]

??????????????????

← →
ЮРИЙ_К (2002-08-20 14:26) [2]

У rxGrid есть свойсто TitleButtons. После установки его в True заголовки полей грида превращаются в кнопки. Т.е. очень удобно посредством этого производить сортировку, кликая по соответствующим кнопкам полей. Вот мне и интересно, можно-ли узнать, на какую кнопку приходится клик мыши. Ну типо событие любой простой кнопки onMouseMove...

← →
Ученик (2002-08-20 14:36) [3]

procedure TForm1.RxDBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
GC : TGridCoord;
begin
if Shift = [] then begin
GC := RxDBGrid1.MouseCoord(X, Y);
if GC.Y = 0 then
Screen.Cursor := crHandPoint
else
Screen.Cursor := crDefault
end
end;

← →
ЮРИЙ_К (2002-08-20 18:33) [4]

Ученик
Класс, уже не плохо, однако мне ешшо нужно определить, над кнопкой какого поля находится. Т.Е. я могу некоторые из них блокировать

procedure TTabelFrm.DBGrid1CheckButton(Sender: TObject; ACol: Integer;
Field: TField; var Enabled: Boolean);
begin
Enabled := (Field <> nil) and ((Field.FieldName = "TabNomProp") or
(Field.FieldName = "SotrName"));
end;

вот и хочется над незаблокированными один курсор, над остальными - другой

← →
ЮРИЙ_К (2002-08-20 18:54) [5]

>> Ученик

Все, большое спасибо, сам додумал , просто нужно ешшо и GC.X проверять , за идею ешшо раз спасибо 8-)

Отловить фокус мышки на кнопке заголовка rxDBGrid Найти похожие ветки