Array
(
)

Novas Janelas na barra de tarefas! Alguém sabe?

Jeanluch
   - 16 dez 2005

Pessoal...
Eu tenho um projeto em Delphi. Todos os Forms têm FormStyle Normal, nenhum é MDI. E nada é Auto-Create. Gostaria de saber o que preciso fazer para que a cada Form criado e aberto ele crie uma janela nova na barra de tarefas. Hoje para todos os Forms que eu abro, eles ficam dentro da mesma ´janela´ na barra de tarefas. Como faço isso?

Obrigado


Jeanluch
   - 16 dez 2005

Por favor... Preciso saber como fazer isso. Ninguém aqui sabe?


Pecchiai
   - 16 dez 2005


Citação:
Por favor... Preciso saber como fazer isso. Ninguém aqui sabe?


Não sei se é isso que vc está querendo, mas resolvi esse problema fazendo varios modulos exe, e chamei eles de um menu...

Espero ter ajudado.
Adilson


Adriano Santos
   - 16 dez 2005


Citação:

Citação:
Por favor... Preciso saber como fazer isso. Ninguém aqui sabe?


Não sei se é isso que vc está querendo, mas resolvi esse problema fazendo varios modulos exe, e chamei eles de um menu...

Espero ter ajudado.
Adilson


Relamente esta é a melhor solução a meu ver. Já trabalhei em diversos lugares que se utilizavam de módulos e + um menu, a solução é excelente e para dar manutenção no fonte melhor ainda.


Jeanluch
   - 16 dez 2005

Muito obrigado por terem respondido. Mas no meu caso acho que não é muito útil dividir em módulos ou .dlls. Pois meu projeto é pequeno e terá poucas telas.
Existe outro jeito de fazer os forms abrirem em uma outra janela separada na barra de tarefas a não ser dividindo em módulos?


Fx|hand
   - 18 dez 2005

crie um novo form, e delcare a procedure CreateParams();

#Código

type
TForm2 = class(TForm)
procedure CreateParams(var Params: TCreateParams); override;
private
{ Private declarations }
public
{ Public declarations }
end;


depois insira esse codigo!

#Código
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);

Params.ExStyle := Params.ExStyle or WS_Ex_AppWindow;
end;



Fx|hand
   - 18 dez 2005

disculpa... mais essa linha q faltou é pra esse form novo naum depender do form q o criou !!!

#Código

procedure TForm2.CreateParams (var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do begin
ExStyle := ExStyle or WS_EX_APPWINDOW;
WndParent := GetDesktopwindow;
end;
end;



Jeanluch
   - 19 dez 2005

Olá...
Eu fiz conforme escrito e funcionou certinho!
Muito obrigado mesmo!
T+