Estoy tratando de mostrar una ventana emergente con un método que tiene 3 parámetros ShowPreview(tag: integer; sender: TObject; mForm:Tform)
, este método está en un metodo TTimer
, el problema es cuando estoy tratando de enviarlo como parámetro para obtener el Sender
, obtengo esto error:
Invalid class typecast
Declaré una variable global para guardarlo, pero el error sigue saliendo
procedure TMainForm.TabLabelMouseEnter(Sender: TObject);
begin
self.TimerTag:= Sender;
//PreviewForm.ShowPreview(TElLabel(Sender).Tag, sender, self);
TimerDisplayPreviewForm.Enabled:= true;
end;
procedure TMainForm.TimerDisplayPreviewFormTimer(Sender: TObject);
begin
//PreviewForm.ShowPreview(TElLabel(Sender).Tag, sender, self);
//Showmessage(IntToStr(TimerTag));
PreviewForm.ShowPreview((Sender as TComponent).Tag, sender, self);
TimerDisplayPreviewForm.Enabled:= false;
end;
¿Cómo puedo obtener el Sender de TabLabelMouseEnter
para asignarlo en TimerDisplayPreviewForm
?
Sender
del metodoTabLabelMouseEnter
para poder usar ese mismosender
que atrapé en el metodoTimerDisplayPreviewFormTimer