Tela Sobrepor outras Telas
olá amigos,
estou com um problema aqui,
como fazer para minha tela (formulario)
aparecer por cima das outras
já está com -> propriedade = fsStayOnTop
estou com um problema aqui,
como fazer para minha tela (formulario)
aparecer por cima das outras
já está com -> propriedade = fsStayOnTop
function TfrmMovimento.Show: TModalResult; var janela: HWND; begin Self:=TfrmMovimento.Create(Application); try // janela := FindWindow(Nil,´Controle de Seguranças´); // SetForegroundWindow(janela); Result:=ShowModal; //frmPrincipal.Timer_MostrarMens.Enabled := false; finally Free; end; end;
Ggg_magaiver
Curtidas 0
Respostas
L_carlos
12/09/2007
Usa o codigo abaixo:
//FORM NA FRENTE DE TUDO
SetWindowPos(Form1.handle, HWND_TOPMOST, Form1.Left, Form1.Top,Form1.Width, Form1.Height, 0);
Troca o form1 pelo nome do seu form e coloca no ONSHOW do form.
Luiz
//FORM NA FRENTE DE TUDO
SetWindowPos(Form1.handle, HWND_TOPMOST, Form1.Left, Form1.Top,Form1.Width, Form1.Height, 0);
Troca o form1 pelo nome do seu form e coloca no ONSHOW do form.
Luiz
GOSTEI 0
Ggg_magaiver
12/09/2007
olá Luiz intão testei deu Erro,,
se eu colocar esse código que passei acima ele dá quase certo,
o que ele faz é ficar PISCANDO na barra de tarefas mas não consegue tomar a frente
Agora se deixo comentado ele Toma a frente de todas as telas sem
ficar com Foco
não sei o que fazer..
- deixei comentado, ae aparece mas semm foco..
- se descomentar na aparece na frente,, mas fica PISCANDO na barra de tarefas como se fosse ficar com foco
se eu colocar esse código que passei acima ele dá quase certo,
o que ele faz é ficar PISCANDO na barra de tarefas mas não consegue tomar a frente
Agora se deixo comentado ele Toma a frente de todas as telas sem
ficar com Foco
não sei o que fazer..
function TfrmMovimento.Show: TModalResult; //var janela: HWND; begin Self:=TfrmMovimento.Create(Application); try // janela := FindWindow(Nil,´Controle de Seguranças´); // SetForegroundWindow(janela); Result:=ShowModal; finally Free; end; end;
- deixei comentado, ae aparece mas semm foco..
- se descomentar na aparece na frente,, mas fica PISCANDO na barra de tarefas como se fosse ficar com foco
GOSTEI 0
L_carlos
12/09/2007
No meu projeto funciona sem problema. Agora o form eu coloco para ser criado automaticamente quando inicia o programa. Vai em PROJECT > OPTIONS e coloca o form para AUTOCREATE ou algo assim (eu não estou com o delphi aqui na maquina). Depois na hora de chamar o form eu uso FORM1.SHOWMODAL.
Luiz
Luiz
GOSTEI 0
Ggg_magaiver
12/09/2007
olá, Amigo
Muito Obrigado pela ajuda,
mas não está dando certo mesmo não
tentei como vc disse,, criando o formulário automaticamente
mas continuou a mostrar sem foco.
Grato,, pela ajuda
se tiver mais alguma dica agradeço t++
Muito Obrigado pela ajuda,
mas não está dando certo mesmo não
tentei como vc disse,, criando o formulário automaticamente
mas continuou a mostrar sem foco.
Grato,, pela ajuda
se tiver mais alguma dica agradeço t++
GOSTEI 0