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

Question

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

Jeanluch · Answer

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

Pecchiai · Answer

[quote:fc904dee4f=�jeanluch�]Por favor... Preciso saber como fazer isso. Ningu�m aqui sabe?[/quote:fc904dee4f]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 · Answer

[quote:946ac7fbe2=�Pecchiai�][quote:946ac7fbe2=�jeanluch�]Por favor... Preciso saber como fazer isso. Ningu�m aqui sabe?[/quote:946ac7fbe2]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....

Jeanluch · Answer

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 · Answer

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;

Fx|hand · Answer

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;

Jeanluch · Answer

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