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

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

Respostas

16/12/2005

Jeanluch

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


Responder Citar

16/12/2005

Pecchiai

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


Responder Citar

16/12/2005

Adriano Santos

[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.


Responder Citar

16/12/2005

Jeanluch

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?


Responder Citar

18/12/2005

Fx|hand

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;



Responder Citar

18/12/2005

Fx|hand

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;



Responder Citar

19/12/2005

Jeanluch

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


Responder Citar