Форум: "Начинающим";
Текущий архив: 2010.09.12;
Скачать: [xml.tar.bz2];

Вниз

Открытие диалога из формы наследника   Найти похожие ветки 

← →
DiamondeX ©   (2010-06-18 00:09) [0]

Есть такая форма:
unit MainBaseFU;
...
type
 TMainBaseF = class(TBasicF)
   LoadImgBtn: TButton;
   LoadPictureDlg: TOpenPictureDialog;
   ...
 end;
В ней у кнопки LoadImgBtn нет обработчика нажатия на кнопку, но он есть в форме-наследнице, что показано ниже:
unit CaptureLrFU;
...
type
 TCaptureLrF = class(TMainBaseF)
   procedure LoadImgBtnClick(Sender: TObject); override;
   ...
 end;

implementation

procedure TCaptureLrF.LoadImgBtnClick(Sender: TObject);
begin
 ShowMessage("before open picture");
 if not LoadPictureDlg.Execute then Exit;
 ShowMessage("after open picture");
end;



По непонятной причине открытие окна диалога не происходит, и после сообщения "before open picture" сразу появляется "after open picture". Кто знает в чем тут дело?

---

← →
DiamondeX ©   (2010-06-18 00:54) [1]

Кстати, директива override тут никакой роли не играет. До ее добавления тоже диалог не открывался.

---

← →
Германн ©   (2010-06-18 01:36) [2]

truth is out there

---

← →
DiamondeX ©   (2010-06-18 02:15) [3]

Ошибку нашел: причина вовсе не в наследовании, как оказалось. Просто в свойство FileName диалога до вызова LoadImgBtnClick было занесено некорректное имя файла (фактически это оказалось именем папки, так как заканчивалось слэшем), что почему-то не вызывало возмущения у контрола-диалога. Очевидно именно по этой причине диалог совсем не открывался.

Тему, думаю, можно закрыть.

---

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

Форум: "Начинающим";
Текущий архив: 2010.09.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.004 c