Fórum Form na Frente de Todas as Aplicações #279389

28/04/2005

0

Ai galera ja pesquisei mais naum achei algo que realmente funcione o ultimo codigo que usei para colocar meu form na frente de qualquer aplicação no windows deixando somente sair se eu fechar ela foi este aqui.

SetForegroundWindow(handle);

Mais naum funciona naum.


Digital_man

Digital_man

Responder

Posts

28/04/2005

Edilcimar

showmodal


Responder

Gostei + 0

28/04/2005

Digital_man

showmodal

Valeu a ajuda, mais ShowModal so funciona na frente do prórpio programa quero que fique na frente de todos os programas windows.


Ok.


Responder

Gostei + 0

28/04/2005

Flaviocont

desabilita os botoes q dao acesso aos outros programas. eu fiz isso com uma tela com uma senha.


Responder

Gostei + 0

28/04/2005

Marco Salles

Tente escrever :

Form1.FormStyle := fsStayOnTop; //Form á Frente


Responder

Gostei + 0

28/04/2005

Digital_man

desabilita os botoes q dao acesso aos outros programas. eu fiz isso com uma tela com uma senha.



Naum entendi como posso desabilitar botoes de acesso para o windows????????


Responder

Gostei + 0

28/04/2005

Flaviocont

exemplo
procedure TForm1.AppMsg(var Msg: TMsg; var Handled: Boolean);
begin
if (Msg.Message = wm_SysCommand) and (Msg.wParam = sc_ScreenSave) then
Handled := true;
end;
essa procedure serve p nao deixar o protetor de tela ativar

/////////

Ativando e Desativando o ALT+TAB

Desativa o ALT+TAB


procedure TurnSysKeysOff;
var OldVal : LongInt;
begin
SystemParametersInfo (97, Word (True), @OldVal, 0)
end;


Ativa o Alt+Tab


procedure TurnSysKeysOn;
var OldVal : LongInt;
begin
SystemParametersInfo (97, Word (False), @OldVal, 0)
end;


/////////

E ASSIM POR DIANTE


Responder

Gostei + 0

29/04/2005

Kapak

Acho que seria mais fácil:
SetWindowPos(Handle, Hwnd_TopMost, 0, 0, 0, 0, Swp_NoMove or Swp_NoSize);



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar