06.06.2008, 20:57
общий
это ответ
Здравствуйте, Зотов.Г.А!
Во-первых, положите на форму диалог открытия файлов <b>TOpenDialog</b> с закладки <b>Dialogs</b>.
При клике мышкой по ячейке, вызывается обработчик события <b>OnClick</b>. Значит мы должны использовать это событие.
Измените обработчик щелчка по ячейки таким образом:
<b>if</b> OpenDialog1.Execute <b>then</b>
<b>begin</b>
<FONT COLOR=GREEN>//Здесь выполняете открытие файла, например Memo1.lines.LoadFromFile(OpenDialog.FileName)</Font>
StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row]:=ExtractFilePath(OpenDialog1.FileName);
<b>end</b>;
В первой строке мы вызываем диалог и проверяем, успешно ли он закончился(пользователь нажал ОК и выбрал файл).
Если да, то изменяем текст текущей ячейки, на путь к файлу.
Доступ к ячейке осуществляется таким образом:
StringGrid1.Cells[индекс колонки, индекс строки]
Индекс текущей колонки получаем через свойство <b>Col</b> у <b>StringGrid‘а</b>, а индекс строки через свойство <b>Row</b>
Полный путь к файлу получаем с помощью функции ExtractFilePath().
Она объявлена в модуле <b>SysUtils</b> и имеет такой вид:
<b>function</b> ExtractFilePath(<b>const</b> FileName: string): string;
<b>FileName</b>-полное имя файла, возвращает полный путь до файла.
Удачи!!!