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

Можно ли сделать так, чтобы на панели задач были ссылки на 2 форм   Найти похожие ветки 

← →
Sanyok   (2003-08-31 13:24) [0]

Можно ли сделать так, чтобы на панели задач были ссылки на 2 формы из одной моей программы?

Очень не хочется делать exe-шник дополнительный с CreateProcess-ом, а нужно, чтобы можно было легко, через панель задач переключаться между 2-мя разными формами одной моей программы.

Спасибо

---

← →
Sanyok   (2003-08-31 13:47) [1]

Нашел ответ, если кому-то интересно:

В главной форме:

procedure TMainForm.FormActivate(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
end;

procedure TMainForm.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params); {CreateWindowEx}
Params.WndParent := GetDesktopwindow;
end;

Во второй -
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params); {CreateWindowEx}
Params.WndParent := GetDesktopwindow;
end;

procedure TLogForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;

---

← →
Андрей Сенченко ©   (2003-08-31 13:52) [2]

:)

---

← →
Song ©   (2003-08-31 15:22) [3]

Дай форме стиль WS_EX_APPWINDOW

---

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

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



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