Asunto: Cómo mover el foco de controles con el scroll del ratón
Estoy desarrolando una aplicación en Delphi, la cual no necesita el Scroll (ruleta) del ratón (mouse) para nada, pero se me ha ocurrido que podría usar el scroll del ratón para moverme por los controles (mover el foco de un control a otro) ¿es posible esto en Delphi? utilizo Delphi 6.
Publicado:
Vie Jul 23, 2010 6:50 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Cómo mover el foco de controles con el scroll del ratón
Anuncios
varios escribió:
Estoy desarrolando una aplicación en Delphi, la cual no necesita el Scroll (ruleta) del ratón (mouse) para nada, pero se me ha ocurrido que podría usar el scroll del ratón para moverme por los controles (mover el foco de un control a otro) ¿es posible esto en Delphi? utilizo Delphi 6.
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure OnMessageOwn(var Msg: TMsg;
var Handled: Boolean);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.OnMessageOwn(var Msg: TMsg;
var Handled: Boolean) ;
var
i : SmallInt;
begin
if Msg.message = WM_MOUSEWHEEL then
begin
Msg.message := WM_KEYDOWN;
Msg.lParam := 0;
i := HiWord(Msg.wParam) ;
if i > 0 then
Msg.wParam := VK_UP
else
Msg.wParam := VK_DOWN;
Handled := False;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := OnMessageOwn;
end;
end.
Con lo anterior, al utilizar el scroll del ratón, se moverá el foco de un componente a otro. Aunque tienes que tener en cuenta que si tienes TEdit ó TMemo o componentes de este tipo, una vez que uno de estos componentes coja el control, ya no saldrás de él con el scroll, tendrías que hacer alguna modificación en el código.
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A