Como proteger um aviso no Delphi

Question

Dae!Eu fiz um aviso para colocar no laborat�rio onde eu trabalho e n�o estou conseguindo fazer com que durante 15 segundos ningu�m consiga fech�-lo ou sobrep�-lo. Quero fazer com que todos leiam o avi...

Cebikyn · Answer

[b:2995763122]Bloquear ALT-F4[/b:2995763122]
Coloque no evento [i:2995763122]OnKeyDown[/i:2995763122] do seu Form:

  if (key=VK_F4) and (ssAlt in Shift) then key:=0;

[b:2995763122]Bloquear o bot�o direito[/b:2995763122]
Para evitar que o usu�rio clique com o bot�o direito do mouse na barra de tarefas e selecione [i:2995763122]Fechar[/i:2995763122], voc� pode ocultar o bot�o de seu programa na barra de tarefas. Para isso coloque no evento [i:2995763122]OnShow[/i:2995763122] do Form:

procedure TMainForm.FormShow(Sender: TObject);
var Owner : HWnd;
begin
  Owner:=GetWindow(Handle,GW_OWNER);
  ShowWindow(Owner,SW_HIDE);
end;

E_gama · Answer

- Configure a propriedade [b:3214e629c7]FormStyle[/b:3214e629c7] do seu formul�rio para [b:3214e629c7]fsStayOnTop[/b:3214e629c7]
- Crie um vari�vel na se��o Private do do Form (ex.: FPodeFechar: Boolean);
- No evento [b:3214e629c7]OnCreate[/b:3214e629c7], escreva: [i:3214e629c7]FPodeFechar := False;[/i:3214e629c7]
- No evento [b:3214e629c7]OnCloseQuery[/b:3214e629c7], escreva: [i:3214e629c7]CanClose := FPodeFechar[/i:3214e629c7]
- No momento em que sua aplica��o puder ser fechada, fa�a: [i:3214e629c7]FPodeFechar := True;[/i:3214e629c7]

Segue o exemplo de um form com um bot�o para fecha-lo:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
    FPodeFechar: Boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FPodeFechar := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FPodeFechar := True;
  Close;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := FPodeFechar;
end;

end.

F�rum Como proteger um aviso no Delphi #171117