Les platico mi dilema. Tengo una pantalla que realiza varias acciones, y dentro de ésta, una serie de TToolButton's que ejecutan algunas acciones, y TEdit's y demás...
Uno de éstos TToolButton's CANCELA la edición de los TEdit's, lo cual es normal en cualquier ABC que se digne de ser llamado así. Yo estoy acostumbrado a algo como ésto en el OnExit de mi TEdit:
procedure TfrmCapExt.edtClvMncExit(Sender: TObject); begin if not (ActiveControl is TToolButton) then begin if edtClvMnc.Text <> '' then begin if FNgcMncps.VldrMncp(edtClvMnc.Text) then begin edtClvMnc.Color := NgcVldGnr.GetColorExit; jvlkpedtCtlMnc.Text := FNgcMncps.DvlvrNmbrMncp(edtClvMnc.Text); FNgcLcldds.CntrrLcldds(edtClvMnc.Text); end else begin Beep(); MessageDlg('No existe el Municipio en los catálogos. Verifique.', mtError, [mbOK], 0); edtClvMnc.SetFocus; end; end; end; end;
Pero como el TToolButton NO ES un control visual sino gráfico (TGraphicControl), obviamente la condición donde pruebo que se acaba de pulsar un TToolButton "truena" como chinampina.
¿Cómo podría evaluar el TToolButton para lograr el efecto deseado? Gracias de antemano por sus aportaciones.