Обламываюсь с диалоговыми окнами.

← →
miwa (2003-07-25 11:26) [0]

При работе приведенного кода получается интерессный вариант: диалоговое окно открытия файла появляется дважды. Тоесть после нажатия кнопки "ОК" выбранные файлы попадают куда следует, после чего окошечко появляется снова с введенным последним именем из выбранного перед етим списка файлов. Код:
function tform1.onkeydown() ... case key of vk_F2: ... vk_F3: ... ... vk_insert: AddFiles; end;//case ... procedure AddData; begin if opendialog1.execute then begin //здесь все срабатывает end; end;

← →
mrcat (2003-07-25 11:53) [1]

После вызова TOpenDialog попробуйте указать Key := 0;

← →
Semin Aleksei (2003-07-25 12:00) [2]

Ошибка в другом месте. Приведенный код недостаточный:
vk_insert: AddFiles; // Вызываешь AddFiles;
А показываешь AddData;
Ошибка скорее всего в AddFiles;

← →
miwa (2003-07-25 12:04) [3]

Спасибо. Помогло.
Блин, только что догадался. Еще в паскале такое было. Инсерт же - функциональная клавиша и ее код составной. В программу передается дважды. Или типа того.
Еще раз спасибо.

← →
miwa (2003-07-25 12:06) [4]

2 Semin Aleksei (25.07.03 12:00)

Неа, извините. Это моя ошибка. Я просто код по памяти писал. Это одна и та же функция. Тоесть процедура.

Обламываюсь с диалоговыми окнами. Найти похожие ветки