Foros Club Delphi - Quiero Saber como hacer que un boton se vea que esta siendo pulsado

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Quiero Saber como hacer que un boton se vea que esta siendo pulsado (https://www.clubdelphi.com/foros/showthread.php?t=5622)

Julio César

27-11-2003 17:59:16

Quiero Saber como hacer que un boton se vea que esta siendo pulsado

Un saludo colectivo para todos ustedes.

Mi duda es la siguiente, tengo una aplicación con el boton Aceptar, como yo hago que se vea pulsada cuando el usuario pulse la tecla ENTER. Tantas veces pulse ENTER en esta se vea el efecto de la pulsación.

GRACIAS ANTICIPADAS!!!

roman

27-11-2003 18:30:33

¡Vaya requerimientos raros!

Intenta esto: pon una componente TApplicationEvents en tu formulario y escribe el siguiente código para su evento OnMessage:

Código:

if (Msg.hwnd = Button1.Handle) and (Msg.WParam = VK_RETURN) then

  case Msg.message of

    WM_KEYDOWN:

      SendMessage(Button1.Handle, WM_LBUTTONDOWN, 0, 0);

    WM_KEYUP:

      ReleaseCapture;

end;

// Saludos

Julio César

27-11-2003 18:34:11

Gracias de nuevo Roman, mefuncionó de maravillas.

La franja horaria es GMT +2. Ahora son las 22:55:53.