Procedimiento Generico para oprimir un boton
 

Hola a todos:

La situación que se me presenta es la siguiente:

He creado un Unidad en la cual estoy creando procedimientos y funciones genericas para utilizar a lo largo de un aplicativo; para el caso pense en crear un procedimiento que me permitiera oprimir un boton desde código el resultado fue el siguiente

Código Delphi [-]
procedure OprimirBoton(Boton : TControl);
Begin
  Boton.Perform(WM_LButtonDown,0,0);
  Boton.Perform(WM_LButtonUp,0,0);
end;

Ahora al intentar compilar la aplicación me envia el siguiente mensaje de error

[Error] UProcedimientos.pas(936): Undeclared identifier: 'WM_LButtonDown'
[Error] UProcedimientos.pas(937): Undeclared identifier: 'WM_LButtonUp'

pense en primer lugar que era falta de alguna libreria así que adicione la libreria Buttons, pero aún continua enviando el mensaje de error.


Agradezco de antemano la atención que me puedan dar.



gertorresm
Colombia.

Deberás definir ambas constantes ya que no recuerdo si Delphi las tiene implementadas en alguna unidad (de ser así lo desconozco, pero tal vez alguien lo sepa y pueda decirte), de todas formas puedes declararlas tú, buscando por internet obtienes sus valores. Me he adelantado y las he buscado yo para darte mayor comodidad:

Código Delphi [-]
const
 WM_LBUTTONDOWN = $201;
 WM_LBUTTONUP = $202;

Un saludo.

Esas constantes están definidas en la unit Messages.

Añadela al uses de tu unit o decláralas tu mismo, como te indica DarkMan.

Problema Solucionado
 

muchas Gracias a los dos, opte por tomar la primera opción con la cual el problema se ha solucionado, les agradezco de corazon.


gertorresm
Colombia

no se como va en versiones mas viejas, pero en los ultimos delphis puedes simplemente hacer esto:

button1.click;

en algunos buttons de terceros es:

button1.buttonclick;