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, у которой, насколько я её помню, нет таких свойств

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

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

> ЮЮ © (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.

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