Форум: "Основная";
Текущий архив: 2003.03.20;
Скачать: [xml.tar.bz2];
Вниз
форма на панели задач? Найти похожие ветки
← →
Zirus (2003-03-07 14:26) [0]Имеем form1, и вызываемую через неё form2. Чтобы form2 была видна на taskbar-е - пишем в закладку unit2 следующий код:
...
private
procedure CreateParams(var Params: TCreateParams); override;
...
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.WndParent := GetDesktopWindow;
end;
А вот, собственно, вопрос: А как возможно осуществить данный код для ДИНАМИЧЕСКИ создаваемой формы, из form1?
Вот код создания этих форм, если надо:
procedure TForm1.Button1Click(Sender: TObject);
var forms: array[1..10] of tform;
begin
forms[1]:=Tform.Create(application);
forms[1].Visible:=true;
end;
← →
Smithson (2003-03-07 14:30) [1]А какая разница?
← →
Zirus (2003-03-07 14:34) [2]Имеется ввиду то, что для form1 - unit1, для form2 - unit2, куда и пишется соотв. процедура и private. А как быть для forms[x]?
← →
Armen (2003-03-07 15:37) [3]forms[x]:=Tform.CreateParented(GetDesktopWindow);
← →
Smithson (2003-03-07 15:45) [4]Э, не так.
Ты же пишешь TFormXXX.Create.
Где-то у тебя описан тип TFormXXX. И в нем сделан override методу CreateParams. Стало быть, при создании формы этого типа вызовется ее перекрытый CreateParams. При любом создании. В чем собственно вопрос?
← →
Zirus (2003-03-07 19:15) [5]Дело в том, что у меня НЕ ОПИСАН тип TFormXXX... То есть описано только TForm1 = class(TForm)! и всё! а как вызвать createparams для forms[x] - ?
← →
ZmeiGorin (2003-03-07 19:21) [6]Ты сначала пойми, что TFormnn и Formnn и что экземпляров одного класса можно создать столько, на сколько хватит свопа :-)
← →
Zirus (2003-03-07 19:43) [7]Жаль только дельфа говорит, что tformnn не создан, зотя вроде всё ok...
Делаю так:
TForma1 = class(TForm); - это я пишу в type формы1
Так и надо?
Или у меня ошибка?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.20;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.014 c