Выделить ячейку в StringGrid e

← →
Leny © (2002-10-14 12:43) [0]

Мастера, подскажите!
Как сделать выделенной ячейку в StringGrid"e при нажатии прав.кнопки мыши?

← →
pavel-ak © (2002-10-14 12:44) [1]

Про StringGrid статья была Sources.ru в разделе Delphi была хорошая.

← →
Song © (2002-10-14 14:29) [2]

TStringGrid.Row/Col

← →
Leny © (2002-10-14 14:50) [3]

TStringGrid.Row/Col - что это означает?
Это вроде обращение к строке\столбцу - только как это связать с кликом прав.кнопки мыши?

← →
Song © (2002-10-14 15:13) [4]

нужно в эти свойства забить номер ряда/столбца соответственно, ячейку которых надо выделить.

← →
Best Before 2024 (2002-10-14 15:21) [5]

procedure TForm1.StringGrid1MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var R, C : LongInt;
begin
if Button = mbRight then
begin
StringGrid1.MouseToCell(X, Y, C, R);
StringGrid1.Row := R;
StringGrid1.Col := C;
end;
end;

← →
Song © (2002-10-14 15:36) [6]

2Best Before 2024 (14.10.02 15:21)
Вы не предусмотрели возможность исключения.

← →
Best Before 2024 (2002-10-14 15:41) [7]

2 Song © (14.10.02 15:36)
Ну это же отправная точка! :)

← →
Игорь Шевченко © (2002-10-14 15:47) [8]

Song © (14.10.02 15:36)

А что, может быть исключение ? :-)

← →
Song © (2002-10-14 15:49) [9]

Когда указатель мыши находится за пределами таблицы (на белой области). MouseToCell() вернёт -1 и StringGrid.Row вернёт исключение.

← →
Best Before 2024 (2002-10-14 15:50) [10]

Игорь Шевченко © (14.10.02 15:47)
>> А что, может быть исключение ? :-)
Если кликнешь мимо ячейки, то
StringGrid1.MouseToCell(X, Y, C, R);
C = -1 и R = -1
=> Exception

Запросто.

Кстати, IMHO, лучше действия выполнять не на MouseDown, а на MouseUp.

← →
Best Before 2024 (2002-10-14 15:59) [14]

Song © (14.10.02 15:58)
Best Before 2024 (14.10.02 15:59)

Значит, могут быть исключения.
И на старуху бывает проруха :-)

Выделить ячейку в StringGrid e Найти похожие ветки