En que objeto está parado el mouse?

[Neftali [Germán.Estévez]]

Empezado por Chelo

....lo que me dices lo entiendo bien ahora lo que no me queda claro es como hacer para "enganchar/capturar" uno de los eventos del componente (mouseDown, por ejemplo) a una rutina que me permita manejar la selección de éstos componentes. Lo he intentado hacer y no me sale.

Supongo, por lo que me pareció entender en los mensajes, que los componentes los vas creando tú por código, pues cuando creas los componentes le asignas a un de sus eventos una rutina creada por tí (como pista la rutina debe tener la misma estructura que tiene el evento que vas a "enganchar");
Por ejemplo si quieres crear Edit's y enganchar los eventos OnExter y OnExit (para cambiar el color del control) a unos métodos creados por ti, sería algo así:

Código Delphi [-]
    // Defines los métodos en la parte privada
    procedure myEnter(Sender:TObject);
    procedure myExit(Sender:TObject);
 
...
 
  // la implementación seria así:
 
procedure TForm1.myExit(Sender: TObject);
begin
  // Compribar y cambiar el color.
  if (Sender is TEdit) then begin
    TEdit(Sender).Color := clWindow;
  end;
end;
procedure TForm1.myEnter(Sender: TObject);
begin
  // Compribar y cambiar el color.
  if (Sender is TEdit) then begin
    TEdit(Sender).Color := clInfoBk;
  end;
end;
 
// y una forma de crear los componentes y "enganchar" los eventos
// podría ser ésta:
 
...
var
  i:Integer;
  ed:TEdit;
begin
  for i := 0 to 3 do begin
    // Ejemplo sencillo que crea 4 edits
    ed := TEdit.Create(Self);
    ed.Parent := Self;
    ed.Name := 'Edit' + IntToStr(i);
    ed.Top := 100 + (i * 30);
    ed.Left := 300;
    // "enganchar" el método on Enter del control
    ed.OnEnter := myEnter;
    // "enganchar" el método OnExit del control
    ed.OnExit := myExit;
  end;