Текущий архив: 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.021 c