Fórum Tela Sobrepor outras Telas #345872
12/09/2007
0
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
Curtir tópico
+ 0Posts
12/09/2007
L_carlos
//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
12/09/2007
Ggg_magaiver
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
12/09/2007
L_carlos
Luiz
Gostei + 0
12/09/2007
Ggg_magaiver
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
Clique aqui para fazer login e interagir na Comunidade :)