Fala galera,
Ao alterar o botão(TButton) para desativado dentro de um evento , ele dispara outro evento.
procedure TFormulario.OnButtonExecutarOperacaoClick(Sender: TObject);
begin
//...
//aqui está o problema
//a função abaixo é sincrona assim ele trava nesta linha porque chamou o evento denovo
ButtonCancelar.Enabled:=true;//.Visible também tem o mesmo comportamento
FuncaoQueNaoChamaPorCausaDesteProblema();
end;
Sem isto:
ButtonCancelar.Enabled:=true
funciona normalmente.
EDIT 1: control.inc
procedure TControl.SetEnabled(Value: Boolean);
begin
if FEnabled <> Value
then begin
EnabledChanging; //aqui chama o evento do OnButtonExecutarOperacaoClick
FEnabled := Value;
Perform(CM_ENABLEDCHANGED, 0, 0);
EnabledChanged;
end;
end;
EDIT 2 Descobri que só acontece isso quando o botão inicia com enable ou visible false. Agora a resolução ainda não faço ideia
EDIT 3
procedure TControl.EnabledChanging;
begin
DoCallNotifyHandler(chtOnEnabledChanging);
end;
procedure TControl.DoCallNotifyHandler(HandlerType: TControlHandlerType);
begin
FControlHandlers[HandlerType].CallNotifyEvents(Self);
end;
EDIT 4
Fazendo alguns testes, se eu duplicar o botão e executar um ou outro, o formulario só desativa o botão que disparar o evento, então se eu tenho botao-A e o botao-B e apertar o botao-A somente ele vai ficar desativado, mesmo que a função desative os dois.
EnabledChanging
eEnabledChanged
) também, olhei aqui na classeTControl
nodelphi 7
e não existe essas duas chamadas.EnabledChanged
?