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