Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

DblClick по загловку TStringGrid [D7, WinXP]

Nastina © (2006-09-25 10:14:00)
Здраствуйте ув. коллеги ...
Подскажите пожалуйста - можно ли отловить двойной щелчек по заголовку TStringGrid?
Если да .. то как?

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

Leonid Troyanovsky (2006-09-25 11:18:00) [1]

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

clickmaker (2006-09-25 10:47:00) [2]

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

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

ЮЮ (2006-09-25 10:43:00) [3]

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

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

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

Leonid Troyanovsky (2006-09-25 10:38:00) [4]

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

> col, row: integer;

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

--
Regards, LVT.

ЮЮ (2006-09-25 10:32:00) [5]
Не уверен, что мой поступок достоин благодарности :(

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.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »