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

Delphi

16/12/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

Jeanluch

Curtidas 0

Respostas

Jeanluch

Jeanluch

16/12/2005

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


GOSTEI 0
Pecchiai

Pecchiai

16/12/2005

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


GOSTEI 0
Adriano Santos

Adriano Santos

16/12/2005

[quote:946ac7fbe2=´jeanluch´]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[/quote:946ac7fbe2]

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.


GOSTEI 0
Jeanluch

Jeanluch

16/12/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?


GOSTEI 0
Fx|hand

Fx|hand

16/12/2005

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

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


depois insira esse codigo!

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);

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



GOSTEI 0
Fx|hand

Fx|hand

16/12/2005

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

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



GOSTEI 0
Jeanluch

Jeanluch

16/12/2005

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


GOSTEI 0
POSTAR