Цитата:
|
Сообщение от Kailon
Добавь еще одно условие проверки
Код:
if (StringGrid1.Row = 21) and (StringGrid1.Col = 1) and (RadioGroup1.ItemIndex = 2) then
Key := #0; |
Вот так делаю и не работает:
Код:
procedure TForm1.RadioGroup3Click(Sender: TObject);
var ACol, ARow: Longint;
RowCount:integer;
Key:char;
begin
case RadioGroup3.ItemIndex of
0:
begin
//выражения
end;
1:
begin
//выражения
if (StringGrid1.Row = 18) and (StringGrid1.Col = 1) then Key := #0;
end;
end;
end;