eu gostaria de saber sem ter que usar o Onmouse move de cada
componente, tipo algo que usasse o application events.
O mouse envia mensagem para o windows qd esta sobre um cmoponente, temo como
saber ql o componente que esta enviando a mensagem
Em 02/11/06, Bráulio Figueiredo Pinto <[EMAIL PROTECTED]>
escreveu:
>
> 'Dá uma olhada nesse código
>
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
> Forms,
> Dialogs, StdCtrls;
>
> type
> TForm1 = class(TForm)
> Button1: TButton; // Todos os componentes button estao vinculados ao
> evento Button1MouseMove
> Button2: TButton;
> Button3: TButton;
> Button4: TButton;
> Button5: TButton;
> procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
> Y: Integer);
> private
> { Private declarations }
> Nome: String;
> public
> { Public declarations }
> procedure RetornaPosicao(Sender: TObject);
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.dfm}
>
> procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
> Y: Integer);
> begin
> RetornaPosicao(Sender);
> end;
>
> procedure TForm1.RetornaPosicao(Sender: TObject);
> begin
> Nome := TWinControl(Sender).Name;
> end;
>
> end.
>
> Espero ter ajudado
>
>
>
>
> Atenciosamente,
>
> Bráulio Figueiredo Pinto
> [EMAIL PROTECTED]
> www.brauliofigueiredo.com.br
>
> ----- Original Message -----
> From: Gabriel Filho
> To: [email protected]
> Sent: Wednesday, November 01, 2006 10:20 AM
> Subject: [delphi-br] saber sobre qual componente o mouse esta
>
>
> Bom dia pessoal
>
> Recentemente peguei um rotina na lista que emula o precionamento da
> teclas cima e baixo do teclado
>
> para o scroll do mouse, porem ela só funciona qdo o componente esta em
> foco.
>
> gostaria de saber se vcs sabem como identificar o componente sob o qual
> esta
> o cursor do mouse.
>
> se eu conseguir isto basta dar um setfocus e pronto funfa perfeito pra
> mim;
>
>
>
> desde já agradeço!!
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
