Desabilitar botao fechar do form

Delphi

20/05/2004

Oi gente, bom dia.

Estou precisando desabilitar (esconder) apenas o botão fechar (X) de um form. Já tentei de tudo e ainda não consegui. No help não achei nada parecido. Preciso também capturar o evento de clique nesse botão. Alguém pode me ajudar.

Grato desde já.


Fabricio Lb

Fabricio Lb

Curtidas 0

Melhor post

Jowjow

Jowjow

20/05/2004

è só desabilitar a propriedade biSystemMenu em BorderIcons;
E para que é o evento de click do botão?


GOSTEI 1

Mais Respostas

Paulo_amorim

Paulo_amorim

20/05/2004

Olá

Se você quer sumir com o botão, como vc vai capturar o evento nele?!!

Tente explicar melhor


Até+


GOSTEI 0
Fabricio Lb

Fabricio Lb

20/05/2004

Vou me explicar melhor. Em alguns forms eu preciso esconder o botão fechar (X), ou seja sumir com ele.

Em outros forms o que eu preciso é capturar o evento de clique no botão fechar (X), ou seja, os botões que quero esconder e os que quero capturar o evento de clique são diferentes.

Se puder me ajudar...


GOSTEI 0
Fabricio Lb

Fabricio Lb

20/05/2004

è só desabilitar a propriedade biSystemMenu em BorderIcons; E para que é o evento de click do botão?


O problema é que se desabilitar a propriedade biSystemMenu em BorderIcons todos os botões irão sumir e eu quero manter os botões de maximização e minimização.


GOSTEI 0
Paulo_amorim

Paulo_amorim

20/05/2004

Olá

Para pegar o evento, utilize o OnClose do form

Até+


GOSTEI 0
Fabricio Lb

Fabricio Lb

20/05/2004

Olá Para pegar o evento, utilize o OnClose do form Até+


O que quero faze é mostrar uma Dialog de confirmação antes de fechar a aplicação. Por exemplo: ´Deseja sair do sisitema?´. Portanto eu não posso usar o OnClose pois aí a aplicação já estaria sendo fechada.

Existe alguma maneira de cancelar um comando Close de um form? Se existir aí sim poderei usar o OnClose.

Mesmo assim valeu.


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

20/05/2004

no onclose:
Action := caNone

isso deve cancelar o fechamento


GOSTEI 0
Fabricio Lb

Fabricio Lb

20/05/2004

Valeu cara. Como cancelar o fechamento do form funcionou.

Agora alguém sabe como esconder apenas o botão fechar (X) de um form?

Valeu!!!


GOSTEI 0
Fabio.hc

Fabio.hc

20/05/2004

Se vc quiser desabilitar.

Tente assim:
procedure TForm2.FormCreate(Sender: TObject);
var
   hwndHandle : THANDLE;
   hMenuHandle : HMENU;
begin
   hwndHandle := FindWindow(nil, ´Form2´);
   if (hwndHandle <> 0) then
      begin
      hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
      if (hMenuHandle <> 0) then
         DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
      end;
end;



GOSTEI 0
Henry

Henry

20/05/2004

Bother, c vc que ter uma mensagem de confirmacao antes de fechar o form, bota no evento ´OnCloseQuery´


Begin
If messagedlg(´Deseja fechar o baguio ai?´, mtconfirmation, [mbyes, mbno], 0)= idyes then
canclose:= true else canclose:= false;


GOSTEI 0
POSTAR