Текущий архив: 2003.08.07;
Скачать: CL | DM;

Вниз

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

← →
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)

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.08.07;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.021 c