Форум: "Основная";
Текущий архив: 2002.12.19;
Скачать: [xml.tar.bz2];
Вниз
Использование RTTI Найти похожие ветки
← →
trof (2002-12-07 19:55) [0]Добрый день.
Есть у меня приложение с MDI-интерфейсом, которое работает с базой. В некоторых режимах я хочу сделать, чтоб окна у меня отображались как модальные. На этапе проектирования задал FormStyle=fsMDIChild, а метод ShowModal для дочерних окон не работает. Пытался до вызова конструктора поменять в RTTI вышеуказанное свойство - ничего не даёт (игнорируется). Можкт я что-то нетак сделал? Помогите, кто сталкивался. Вот кусок кода, который показывает принцип желаемого действия, но не работает :-(( :
function TBaseEditForm.ShowDirectory(ViewClass: TFormClass;
const FieldName: string): variant;
var
ViewForm:TBaseViewForm;
begin
if ViewClass.ClassInfo<>nil then
TForm(ViewClass.ClassInfo).FormStyle:=fsNormal;
Application.CreateForm(ViewClass,ViewForm);
with ViewForm do
begin
try
ShowModal;
Result:=ViewDataSet.FieldByName(FieldName).Value
except
Result:=Null
end;
Free
end
end;
← →
Александр Павлов (2002-12-07 21:04) [1]Лечится переопределением метода CreateParams() создаваемой формы:
procedure CreateParams(var Params: TCreateParams); override;
...
procedure TФорма.CreateParams(var Params: TCreateParams);
begin
if FIAmMDI then FormStyle := fsMDIChild
else FormStyle := fsNormal;
inherited CreateParams(Params);
end;
Зам.: в процедуре реализации формы, с целью эк-мии памяти, создавать форму можно без переменной экземпляра:
with TBaseViewForm.Create(Application) do ;
С уважением.
← →
trof (2002-12-07 21:42) [2]Спасибо. Только не понятно with TBaseViewForm.Create(Application) do ; - разве коппилятор сам не создаёт аналогичную переменную?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.19;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c