Открытие диалога из формы наследника

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

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

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

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