Re: [delphi-br] saber sobre qual componente o mouse esta

Thu, 02 Nov 2006 05:52:43 -0800 

'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: delphi-br@yahoogrupos.com.br 
  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]




-- 
<<<<< 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

Responder a