Текущий архив: 2007.09.02;
Скачать: CL | DM;
Вниз
TDBGrid.OnMouseDown Найти похожие ветки
← →
Savek (2007-08-10 09:18) [0]Странное поведение событий в Гриде: OnMouseUp срабатывает в любом месте грида, а OnMouseDown срабатывает только при нажатии на заголовке грида или на месте, незанятом строками...
Наводим курсор мыши на строку нажимаем/опускаем кнопку - OnMouseDown НЕ произошло, OnMouseUp - произошло...
Это что, стандартное поведение компонента? И как с этим бороться?
← →
MsGuns © (2007-08-10 10:58) [1]Ничего странного нет. В гриде есть возможность выделения нескольких строк сразу с помощью как раз мыши
← →
Lacmus © (2007-08-10 11:26) [2]>Это что, стандартное поведение компонента?
Да
>И как с этим бороться?
type
TDBGridX = class(TDBGrid)
protected
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
end;
TDBGrid = class(TDBGridX);
TForm5 = class(TForm)
DBGrid1: TDBGrid;
Table1: TTable;
DataSource1: TDataSource;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
{$R *.dfm}
procedure TDBGridX.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
{ ... }
inherited MouseDown(Button, Shift, X, Y);
{ ... }
end;
← →
Savek (2007-08-10 14:55) [3]Спасибо, в этом напрвлении я и копал, но допер бы нескоро
Страницы: 1 вся ветка
Текущий архив: 2007.09.02;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.03 c
