Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.10.12;
Скачать: CL | DM;

Вниз

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

 
sD ©   (2008-09-02 11:02) [0]

Здравствуйте! В моем приложение несколько форм, формы создаются при вызове. В некоторых случаях стиль форму необходим fsMDIChild, в других  форма должна быть модальной (а значит FormStyle= fsNormal). Изменять стиль формы во время создание не получается. Как быть?


 
Юрий Зотов ©   (2008-09-02 11:12) [1]

В design-time проставьте fsNormal и создавайте форму невидимой, а после ее создания ставьте fsMDChild (если надо).


 
sD ©   (2008-09-02 12:17) [2]

(при установке FormStyle:=fsMDIChild; автоматом устанавливается VertScrollBar-Visibale=true Visibale=true)

до создания:
FormStyle= fsNormal
VertScrollBar-Visibale=false
Visibale=false

1Вариант(ошибок нет,форма не показывается)

TAbout.Create(self);
About.FormStyle:=fsMDIChild;


2Вариант (ошибка, не может прочитать по некоторому  адресу)

TAbout.Create(self);
About.VertScrollBar.Visible:=true;
About.FormStyle:=fsMDIChild;
About.Visible:=true;


 
clickmaker ©   (2008-09-02 12:21) [3]

> TAbout.Create(self);

а где присвоение About?


 
Palladin ©   (2008-09-02 12:25) [4]

как это где, переменная About сама должна понять... логично же... ^)


 
{RASkov} ©   (2008-09-02 12:28) [5]

> [2] sD ©   (02.09.08 12:17)

Знаешь анекдот про фанарь и алкаша, который ищет чего-то там где светлее. Так вот и ты:
Создал в никуда форму

> TAbout.Create(self);

А затем пытаешься работать с подходящей, но не инициализированной переменной About....
:о)


 
clickmaker ©   (2008-09-02 12:29) [6]

> как это где, переменная About сама должна понять... логично
> же...

а в Д2009 не встроили подобную фичу?


 
Юрий Зотов ©   (2008-09-02 13:54) [7]


type
 TFormKind = (fkUsual, fkModal, fkChild);

function CreateAndShowAboutForm(Owner: TComponent; FormKind: TFormKind): TAbout;
begin
 Result := TAbout.Create(Owner);
 try
   case FormKind of
     fkUsual:
       Result.Show;
     fkModal:
       Result.ShowModal;
     else
       Result.FormStyle := fsMDIChild
   end
 except
   Result.Free;
   raise
 end
end;



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

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

Наверх




Память: 0.48 MB
Время: 0.017 c
2-1220237788
FIL-23
2008-09-01 06:56
2008.10.12
Сортировка масива


2-1220106974
Alral
2008-08-30 18:36
2008.10.12
Функция Recv и PChar


2-1220248002
Abcdef123
2008-09-01 09:46
2008.10.12
Работа в среде Дельфи 2007.Что значат ошибки в окне Structure?


8-1186581945
mrAld
2007-08-08 18:05
2008.10.12
Просмотр TIFF


2-1220425410
DelphiLexx
2008-09-03 11:03
2008.10.12
в rxlib есть ф-ция ReplaceStr, есть ли аналог в самом Delphi