Код:
var
sCol, sRow: Integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.Cells[sCol, SRow] := Edit1.Text;
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
begin
sCol := ACol;
sRow := ARow;
end;
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
|