Botão da aplicação na barra de tarefas

Delphi

23/06/2005

Mesmo quando bloqueamos Alt + F4 na aplicação ao executá-la em XP fica disponível a opção de ficha-la clicando como botão direito do mouse no botão da aplicação na barra de tarefas.

Tem como desabilitar esta opção?

Um abraço


Aurino003

Aurino003

Curtidas 0

Respostas

Sandra

Sandra

23/06/2005

aurino003,

No onCreate do form principal, faça:
procedure TForm1.FormCreate(Sender: TObject);
var
  SysMenu: HMenu;
begin
  SysMenu := GetSystemMenu(application.handle, False);
  EnableMenuItem(SysMenu, SC_CLOSE, MF_DISABLED or MF_GRAYED);
end;

:D


GOSTEI 0
Aurino003

Aurino003

23/06/2005

Sandra,

:D Obrigado pela dica!

Problema solucionado.


Um abraço

aurino003, No onCreate do form principal, faça: 
procedure TForm1.FormCreate(Sender: TObject);
var
  SysMenu: HMenu;
begin
  SysMenu := GetSystemMenu(application.handle, False);
  EnableMenuItem(SysMenu, SC_CLOSE, MF_DISABLED or MF_GRAYED);
end;
:D



GOSTEI 0
POSTAR