Тема: Вставка картинок
Показать сообщение отдельно
  #4  
Старый 11.01.2012, 19:09
ApxaHGe1 ApxaHGe1 вне форума
Активный
  
Регистрация: 08.04.2008
Адрес: Нижний новгород
Сообщения: 311
Репутация: 38
По умолчанию
procedure TForm1.Image1Click(Sender: TObject);
Код:
begin
image1.picture.loadfromfile ('click.jpg');
end;
Ответить с цитированием