2009-04-15 8 views
1

J'ai un peu de mal avec une ancienne application delphi.net.ASP.net Delphi image dynamique onclick événement

J'ai besoin d'afficher des images miniatures sur un emplacement spécifique de la page et lorsque l'utilisateur clique sur l'image, affiche l'image. Les images sont plutôt petites, donc je n'ai pas été dérangé par la génération de vignettes.

Le problème est que je n'arrive pas à faire fonctionner l'événement onclick.

Voici mon code: (Ceci est dans le cas page_load)

filer := Directory.GetFiles(dirstr,soegestr); 
for f in filer do 
begin 
    img := ImageButton.Create; 
    img.ImageUrl := f; 
    img.Width := 30; 
    img.Height := 50; 
    img.Style.Add('margin-right','10px'); 
    include(img.Click, FragtbrevsBilledeClick); 
    PanelBilleder.Controls.Add(img); 
end; 

comprennent ne fait rien. L'événement onclick déclenche juste une publication.

FragtbrevsClick est défini comme suit:

procedure TWebForm1.FragtbrevsBilledeClick(Sender: TObject; 
    e: ImageClickEventArgs); 
begin 
    Response.Redirect((sender as ImageButton).ImageUrl); 
end; 

Définition d'un point d'arrêt en fragtbrevs clics ne se fait frapper.

Je ne suis pas un développeur Web de régule donc d'autres façons de résoudre le problème sont également les bienvenues! :-)

Répondre

1

Tout ce que vous devez faire est de définir la propriété PostBackURL de ImageButton (ainsi que toutes les autres propriétés que vous aimez). Un gestionnaire d'événement Click n'est pas nécessaire. Lorsque le bouton est cliqué, il redirige automatiquement vers l'emplacement PostBackURL. Cela devrait suffire, étant donné que vous ne faites rien d'autre dans le gestionnaire d'événements FragtbrevsBilledeClick.

Questions connexes