Distinguir el objeto sender en un evento

[jhonny]

A ver, por lo que entiendo el objeto Sender debe ser un TVaCOMM y me supongo que esa clase TVaCOMM debe tener una manera de diferenciarlo de los demás, voy a asumir que esa manera de diferenciarse sea una propiedad llamada Posición de tipo Integer: en ese caso podria hacer un cast asi:

Código Delphi [-]
 
case TVaCOMM(Sender).Posicion do
begin
   //Y hacer lo que tengas que hacer...
end;

TVaCOMM(Sender).Posicion te mostraria la propiedad Posicion del objeto Sender.

Espero te haya comprendido bien y que esto te sirva de algo.

[[Lepe]]

Yo he entendido el asunto de otra forma, no sé si servirá:

Código Delphi [-]
 procedure TForm1.Evento_Al_recibir(Sender: TObject; Count: Integer);
var Encontrado :Boolean;
begin
  for i:= low(Modems) to High(Modems) do
  begin
    Encontrado := TVaCOMM(Sender) = Modems[i];
    if Encontrado then Break;
  end;
  If Encontrado then
    ShowMessage('Encontrado en el índice del array Modem: '+IntTostr(i));
end;

Saludos

[vejerf]

Gracias chic@s por vuestra ayuda... asunto solucionado por el momento... pero x cambio de planes... ya os contare