Form na Frente de Todas as Aplicações

Delphi

28/04/2005

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

Curtidas 0

Respostas

Edilcimar

Edilcimar

28/04/2005

showmodal


GOSTEI 0
Digital_man

Digital_man

28/04/2005

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.


GOSTEI 0
Flaviocont

Flaviocont

28/04/2005

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


GOSTEI 0
Marco Salles

Marco Salles

28/04/2005

Tente escrever :

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


GOSTEI 0
Digital_man

Digital_man

28/04/2005

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????????


GOSTEI 0
Flaviocont

Flaviocont

28/04/2005

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


GOSTEI 0
Kapak

Kapak

28/04/2005

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



GOSTEI 0
POSTAR