Скачать: CL | DM;

DblClick по загловку TStringGrid   Найти похожие ветки 

← →
Nastina   (2006-09-25 10:14) [0]

Здраствуйте ув. коллеги ...
Подскажите пожалуйста - можно ли отловить двойной щелчек по заголовку TStringGrid?
Если да .. то как?

Заранее благодарна!

---

← →
ЮЮ ©   (2006-09-25 10:32) [1]

Не уверен, что мой поступок достоин благодарности :(

procedure TForm1.StringGrid1DblClick(Sender: TObject);
var
 col, row: integer;
 grid: TStringGrid;
 p: TPoint;
begin
 grid := TStringGrid(Sender);
 p := Mouse.CursorPos;
 p := grid.ScreenToClient(p);
 grid.MouseToCell(p.x, p.Y, col, row);
 if (row > -1) and (col > - 1) and (row <= grid.FixedRows) then
   Caption := "заголовок, столбец " + IntToStr(col)
 else
   Caption := "";
end;

end.

---

← →
Leonid Troyanovsky ©   (2006-09-25 10:38) [2]

> ЮЮ ©   (25.09.06 10:32) [1]

>  col, row: integer;


Нехорошо давать такие же имена, как и у свойств.

--
Regards, LVT.

---

← →
ЮЮ ©   (2006-09-25 10:43) [3]

> Нехорошо давать такие же имена, как и у свойств.

Неужели и Борлданд копирайт на свойтва объявил? :)

У меня TForm1, метод StringGrid1DblClick которй приведен, наследовалась от TForm, у которой, насколько я её помню, нет таких свойств

---

← →
clickmaker ©   (2006-09-25 10:47) [4]

> Нехорошо давать такие же имена, как и у свойств

Разве что при использовании конструкций with SomeComponent ...

---

← →
Leonid Troyanovsky ©   (2006-09-25 11:18) [5]

> ЮЮ ©   (25.09.06 10:43) [3]

>  наследовалась от TForm, у которой, насколько я её помню,
>  нет таких свойств

> clickmaker ©   (25.09.06 10:47) [4]

> Разве что при использовании конструкций with SomeComponent ...


Да, конечно. with TStringGrid(Sender) автоматом пишу.
Sorry.

Ну, а борланды тоже бывают неправы - сколько неудобств
было, скажем, D2-3, где в заголовке StringGridXDrawCell
фигурировали Col, Row instead ACol, ARow.

--
Regards, LVT.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.033 c