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

форма на панели задач?   Найти похожие ветки 

← →
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 вся ветка

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



Память: 0.46 MB
Время: 0.012 c