Se não me engano existe uma função do windows que faz isso, mas não estou lembrado qual é....
william.designer escreveu: > > Obrigado pela dica willer mas o meu problema não está em proibir que > o form seja fechado, está parte está funcionando bem... > o problema está no FormStyle fsStayOnTop; > já coloquei isso mas meu formulário nao fica em primeiro plano, > sempre que abro um aplicativo este fica por cima do meu formulário... > > --- Em delphi-br@yahoogrupos.com.br > <mailto:delphi-br%40yahoogrupos.com.br>, "willer" <[EMAIL PROTECTED]> escreveu > > > > //aqui funciona assim > > procedure TfrmLogin.FormClose(Sender: TObject; var Action: > TCloseAction); > > begin > > if not Fechar then > > Action:=caNone; > > end; > > > > > > ----- Original Message ----- > > From: william.designer > > To: delphi-br@yahoogrupos.com.br > <mailto:delphi-br%40yahoogrupos.com.br> > > Sent: Wednesday, December 05, 2007 1:44 PM > > Subject: [delphi-br] SOCORRO : Aplicação em primeiro plano > > > > > > Olá a todos, estou com uma dúvida cruel... > > estou criando um aplicativo que o usuário tem logar para ter > acesso > > a área de trabalho. quando o usuário loga na parte superior da > tela > > fica um pequeno formulario mostrando o nome do usuário, o > relogio e > > um contatador de tempo. > > > > criei uma váriavel global > > Fechar:Boolean=False > > Coloquei no evento OnCloseQuery > > CanClose:=Fechar; > > Criei um botão Fechar e coloquei o seguinte codigo no Onclick > > Fechar:=True; > > Close; > > fiz isso para evitar que a tela fosse fechada com ALT+F4 > > > > Nas propriedades do formulario retirei as bordas da janela; > > até ai tudo bem... > > > > porém também alterei o FormStyle para fsStayOnTop; > > fiz isso para que esta janelinha fique aparecendo o tempo todo > sobre > > qualquer aplicativo que o usuario abrir no windows... > > porém não está funcionando...alguem sabe me dizer se fiz algo > errado > > ou se deixei de fazer alguma coisa... > > > > estou precisando muito desta informação,,, deste já agradeço a > > todos... > > > > > > > > > > > > __________ Informação do NOD32 IMON 2704 (20071205) __________ > > > > Esta mensagem foi verificada pelo NOD32 sistema antivírus > > http://www.eset.com.br <http://www.eset.com.br> > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > -- Éderson Cassiano Bologna [EMAIL PROTECTED] sKYPE: edersoncassiano MSN: [EMAIL PROTECTED] www.microtechshop.com