Скачать: CL | DM;

Использование 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 вся ветка

Скачать: CL | DM;



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