Foros Club Delphi - prblema basico de procedimientos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - prblema basico de procedimientos (https://www.clubdelphi.com/foros/showthread.php?t=26725)

Jorghino reyes

01-11-2005 21:03:18

prblema basico de procedimientos

hola que tal, de nuevo aqui con una duda.

Agradezco de antemano la ayuda que me puedan brindar !

En un procedimeinto que hize, que tengo que hacer para que dentro de él, pueda llamar a un evento de otro objeto. algo asi:

se define asi.

Código Delphi [-] procedure llamagenero;
 {...}
 {...}
 
 procedure Tform1.llamagenero;
 begin
   selgenero:= selgenero-1;
   if selgenero= 1 then
     SpeedButton19Click(sender) // este es el evento que quiero
   else if selgenero = 2 then
     SpeedButton20Click(sender)
 end;

y lo uso asi:

Código Delphi [-] procedure TForm1.FileListBox1KeyPress(Sender: TObject; var Key: Char);
 begin
   if (key = chr(107)) and (presgenero=true) then begin
     llamagenero; // aqui llamo el procedimiento
     presgenero:=false
   end;
 end;

El error: "me dice que Sender no esta definido"

Esto sucede solo si lo hago dentro de el procedimiento llamagenero.
supongo que debe ser algo sencillo, no?

gracias por la ayuda, espero me haya explicado bien

luisgutierrezb

01-11-2005 21:42:20

bueno generalmente el Sender es de tipo TObject..
puedes usar algo asi como:
SpeedButton19Click(Self); // este es el evento que quiero

Crandel

01-11-2005 23:07:22

Explicando un poco que es el Sender, por ahi te ayuda a entender mejor.

El Sender normalmente es un puntero al objeto que llamo o generó el evento.

Cuando hacmos Click sobre un botón, el sender que recibe ese método es el puntero al botón que se apreto.

En tu caso, si no necesitas saber quien generó el mensaje simplemente le pudes mandar nil.

Código Delphi [-]SpeedButton19Click(nil);

o puedes simular como si se hubiera apretado el botón SpeedButton19

Código Delphi [-]SpeedButton19Click(SpeedButton19);

y en la sugerencia de luisgutierrezb, el Self corresponde a form1

Código Delphi [-]SpeedButton19Click(Self);

defcon1_es

02-11-2005 10:54:18

Hola,
Por lo que veo, no necesitas sender en esa llamada, no?
prueba esto:

Código Delphi [-]procedure Tform1.llamagenero;
begin
  selgenero:= selgenero-1;
  if selgenero= 1 then 
    SpeedButton19.Click 
  else 
    if selgenero = 2 then 
      SpeedButton20.Click;
end;

Salu2.

yusnerqui

02-11-2005 16:45:05

Hola

Cita:

Empezado por defcon1_es

Por lo que veo, no necesitas sender en esa llamada, no?

Pues nada, que de la forma que comentas si se traspasa el parámetro sender.

Saludos

La franja horaria es GMT +2. Ahora son las 03:49:17.