Ver Mensaje Individual
  #1  
Antiguo 01-11-2005
Jorghino reyes Jorghino reyes is offline
Miembro
 
Registrado: ago 2005
Ubicación: Jalisco Mexico
Posts: 41
Reputación: 0
Jorghino reyes Va por buen camino
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

Última edición por dec fecha: 02-11-2005 a las 06:41:50. Razón: ¡¡Encerrad el código fuente entre las etiquetas [DELPHI] ... [/DELPHI]!!
Responder Con Cita