TImage

@Hretgir · Регистрация: 25.01.2012

Author24 — интернет-сервис помощи студентам

У меня вопрос, можно-ли в TImage заливать картинку на выбор, в зависимости от значения некоторой переменной?

@Puporev · 08.11.2015, 09:05

Можно.

Pascal

procedure TForm1.Button1Click(Sender: TObject);
var k:byte;
begin
  k:=strtoint(Edit1.Text);
  case k of
  0: Image1.Picture.loadfromfile('aaa.bmp');
  1: Image1.Picture.loadfromfile('bbb.bmp');
  else showmessage('Выберите 0 или 1');
  end;
end;

@Hretgir 356 / 124 / 3 Регистрация: 25.01.2012 Сообщений: 5,464 Записей в блоге: 118
		1
	TImage 08.11.2015, 08:47. Показов 1028. Ответов 1 Метки нет (Все метки) У меня вопрос, можно-ли в TImage заливать картинку на выбор, в зависимости от значения некоторой переменной? 0

	08.11.2015, 09:05

TImage

Решение