У меня небольшие проблемы со старым приложением delphi.net.
Мне нужно показать несколько миниатюрных изображений в определенном месте на странице, а когда пользователь щелкает изображение, показать изображение.
Изображения довольно маленькие, поэтому мне не надо было создавать эскизы.
Проблема в том, что я не могу заставить работать событие onclick.
Вот мой код: (Это в событии 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;
include ничего не делает. Событие onclick просто вызывает обратную передачу.
FragtbrevsClick определяется следующим образом:
procedure TWebForm1.FragtbrevsBilledeClick(Sender: TObject;
e: ImageClickEventArgs);
begin
Response.Redirect((sender as ImageButton).ImageUrl);
end;
Установка точки останова в щелчках фрагмента никогда не будет достигнута.
Я не веб-разработчик-регулятор, поэтому альтернативные способы решения проблемы также приветствуются! : -)