Larius
Дата: 09.10.2006 16:08:38
Добрый день!
Как определить, что событие DBGrid1ColEnter произошло по клику мыши, а не по нажатию клавиши клавиатуры?
_by_
Дата: 09.10.2006 16:32:54
не претендую на правильность решения, но я бы сделал так:
1. Создал глобальную переменную Flag: Boolean.
2. Код:
procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Flag := True;
end;
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
if Flag then // значит кликлул мышкой по гриду
end;
procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Flag := False;
end;