Evento OnExit : TWinControl x TGraphicControl
Olá programadores.
Me surgiu a seguinte duvida.
No evento acima, testo de o botão precionado for o Incluir (TBitBtn), entao saio do evento,
Mas no caso isso não se aplica a um [b:492bc58420]TToolButton[/b:492bc58420] que é da classe
TGraphicControl.
Como poderia fazer uma condição parecida? Ou a correta, para este caso?
Grato.
Me surgiu a seguinte duvida.
procedure TFrmTemp.mdtCod3Exit(Sender: TObject);
Var
MinhaMsg: TMsg;
begin
if ActiveControl = btnIncluir1 then
exit;
(* faz alguma coisa *)
end;
No evento acima, testo de o botão precionado for o Incluir (TBitBtn), entao saio do evento,
Mas no caso isso não se aplica a um [b:492bc58420]TToolButton[/b:492bc58420] que é da classe
TGraphicControl.
Como poderia fazer uma condição parecida? Ou a correta, para este caso?
Grato.
Macario
Curtidas 0
Respostas
Beppe
28/04/2005
É, controles derivados de TGraphiControl só recebem eventos de mouse. Tente o OnMouseUp.
GOSTEI 0
Macario
28/04/2005
Certo,
mas a ´treta´ na verdade esta no OnExit de um TMaskEdit.
Pois so quero executar o escopo, se o objeto que recebeu ou executou algum evento não foi um determinado botão(no caso um de cancelar que é da class TGraphicControl).
Como falei normalmente uso
[b:a9a2b7ee84]if ActiveControl = btnIncluir1 then
exit; [/b:a9a2b7ee84]
existe algo parecido?
pois não gostaria de criar variavel para isto.
mas a ´treta´ na verdade esta no OnExit de um TMaskEdit.
Pois so quero executar o escopo, se o objeto que recebeu ou executou algum evento não foi um determinado botão(no caso um de cancelar que é da class TGraphicControl).
Como falei normalmente uso
[b:a9a2b7ee84]if ActiveControl = btnIncluir1 then
exit; [/b:a9a2b7ee84]
existe algo parecido?
pois não gostaria de criar variavel para isto.
GOSTEI 0
Beppe
28/04/2005
Faça o inversos então. Teste no OnClick dos botões(já que são TGraphicControl) se o ActiveControl é o MaskEdit.
GOSTEI 0