Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 29-12-2009
Avatar de GerTorresM
GerTorresM GerTorresM is offline
Miembro
 
Registrado: nov 2005
Ubicación: Tunja - Boyacá
Posts: 210
Poder: 19
GerTorresM Va por buen camino
Cool 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.
Responder Con Cita
  #2  
Antiguo 29-12-2009
Avatar de DarkMan
DarkMan DarkMan is offline
Miembro
 
Registrado: jul 2006
Posts: 102
Poder: 18
DarkMan Va por buen camino
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.
__________________
"La recompensa de una buena acción está en haberla hecho"
Responder Con Cita
  #3  
Antiguo 29-12-2009
Avatar de defcon1_es
defcon1_es defcon1_es is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuenca - España
Posts: 533
Poder: 21
defcon1_es Va por buen camino
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.
__________________
Progress Openedge
https://abevoelker.com/progress_open...dered_harmful/


Delphi forever...
Responder Con Cita
  #4  
Antiguo 29-12-2009
Avatar de GerTorresM
GerTorresM GerTorresM is offline
Miembro
 
Registrado: nov 2005
Ubicación: Tunja - Boyacá
Posts: 210
Poder: 19
GerTorresM Va por buen camino
Wink 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
Responder Con Cita
  #5  
Antiguo 29-12-2009
cocute cocute is offline
Miembro
 
Registrado: nov 2008
Posts: 403
Poder: 16
cocute Va por buen camino
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;
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
procedimiento de asignación genérico gushynet OOP 23 09-09-2008 11:50:15
Apuntar a un tipo genérico Guillermo80 Varios 4 09-03-2008 12:48:22
Procedimiento para el boton borrar magnu9 SQL 2 05-07-2007 01:13:16
reporte generico piyugo Impresión 8 07-05-2004 19:20:03
Configuar Generico/solo texto en Win 2000 sperezp Impresión 0 13-01-2004 16:13:43


La franja horaria es GMT +2. Ahora son las 19:28:20.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi