Click sobre boton desactivado.

[jnieves]

¿Alguien me puede decir como detectar que se ha hecho click sobre un boton desactivado?

Button.Enbled := False;

[ecfisa]

Hola jnieves.

Hasta donde sé, no se puede. Precisamente la propiedad Enabled es la que dictamina cuando
un control responde a los eventos de ratón, teclado y timers.

Ayuda de Delphi:

Enabled property (TWidgetControl)
Controls whether the control responds to mouse, keyboard, and timer events

Si se espera que un botón pueda ser clickeado, mi pregunta es: ¿ Para que poner su propiedad Enabled en False ?


Saludos.

[jnieves]

ola ecfisa.

Mi caso. El boton está desactivado mientras que no se completen todos los datos obligatorios de los diferentes controles que hay en el form.
La idea es que al pulsar sobre el boton desactivado me indique que componente obligatotio del form está pendiente de completar, mediante una flecha que diga que esta dato es obligatorio.

Se que lo mismo puedo hacerlo con el boton activado, me toda mi aplicacion ya está hecha con el boton desativado hasta completar.

[ecfisa]

Hola.

Sigo pensando que no es el mejor planteo... Pero si de todos modos deseas hacerlo así, se me ocurre una chapuceada.

Poné en todos los componentes que son obligatorios la propiedad Tag = -1 (menos el TButton que está desactivado) y probá este de
código de ejemplo:

Código Delphi [-]
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    ComboBox1: TComboBox;
    procedure ControlExit(Sender: TObject);
  private
    procedure CMFocusChanged(var Message: TCMFocusChanged); message CM_FOCUSCHANGED;
  public
  end;

var
  Form1: TForm1;

implementation {$R *.dfm}

{ Mensaje cambio de foco }
procedure TForm1.CMFocusChanged(var Message: TCMFocusChanged);
var
  i: Integer;
begin
  Button1.Enabled:= True;
  for i:= 0 to ComponentCount -1 do
    if Components[i].Tag = -1 then
      Button1.Enabled:= False;
end;

{ OnExit de cada dato obligatiorio }
procedure TForm1.ControlExit(Sender: TObject);
begin
  if (Sender is TEdit)and(TEdit(Sender).Text <> '') then
     TEdit(Sender).Tag:= 0;
  if (Sender is TComboBox)and(TComboBox(Sender).Text <> '') then
     TComboBox(Sender).Tag:= 0;
  // ...
end;

end.

Esto te activa el botón cuando todos los campos cumplan la condición que evalues en ControlExit.

Saludos.