Evento Click do botão não funciona dinamicamente

Delphi

25/02/2012

Boa noite !

Quando tento fechar um form, simulando o clique de um botão, simplesmente o form não fecha.

Eis o código:

if bFalhou = True then
begin
  btnFEC.Click;
  //btnFEC.Perform(WM_LBUTTONDOWN, 0, 0); //Simula apertar o botão
  //btnFEC.Perform(WM_LBUTTONUP, 0, 0); //Simula soltar o botão (claro)
end;

procedure Tfrm1.btnFECClick(Sender: TObject);
begin
  Close;
  //ModalResult := mrOK;
end;


Alguém saberia dizer o que está errado ?

Grato,

Marcos
Marcos

Marcos

Curtidas 0

Respostas

Gustavo Bretas

Gustavo Bretas

25/02/2012

Marcos, vc tem certeza de que o evento esta atribuido ao botão?
Vc esta usando herança? Quando uso erança gosto de trabalhar sempre com o evento do componente, por exemplo no seu caso, eu usaria:

btnFEC.OnClick(btnFEC);

De cara vc ja vai descobrir se o evento esta atribuido ao botão, caso não estiver dará access violation... rsrs!
GOSTEI 0
POSTAR