VPF::координаты курсора в гриде - Форум программистов

Petro123

Дата 12.10.2007, 14:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 288
Регистрация: 6.4.2007

Репутация: нет
Всего: нет

Можно ли в гриде(DbGrid) по координатам курсора мыши узнать над какой строкой он находится,
ну как MouseToCell в стрингриде

volvo877

Дата 12.10.2007, 14:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 14
Всего: 116

Есть MouseCoord

Petro123

Дата 12.10.2007, 15:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 288
Регистрация: 6.4.2007

Репутация: нет
Всего: нет

Добавлено @ 15:29
А как MouseCoord работает?

Это сообщение отредактировал(а) Petro123 - 12.10.2007, 15:29

Rodman

Дата 12.10.2007, 15:34 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122

Код


procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  GridCoord: TGridCoord;
begin
  GridCoord := TStringGrid(Sender).MouseCoord(X,Y);
  Edit1.Text := IntToStr(GridCoord.X);
  Edit2.Text := IntToStr(GridCoord.Y);
end;

Добавлено через 1 минуту и 5 секунд

Код


procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  GridCoord: TGridCoord;
begin
  GridCoord := TStringGrid(Sender).MouseCoord(X,Y);
  ShowMessage('X,Y = ' + IntToStr(GridCoord.X) + ',' + IntToStr(GridCoord.Y));
end;

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »