Вывод картинки на экран

@KatrinVev · Регистрация: 21.01.2013

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

Нужно, чтобы в Edit вводили путь папки в которой находится изображение, нажимали Enter и в Image появлялась картинка.

@KatrinVev · 09.12.2013, 23:46 **[ТС]**

неужели никто не подскажет?(

@BOGG ART · 09.12.2013, 23:56

Delphi

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if(Byte(Key)=13)then if FileExists(TEdit(Sender).Text)then try Image1.Picture.LoadFromFile(TEdit(Sender).Text); except ShowMessage('error!');end else ShowMessage('no file!');
end;

@KatrinVev 1 / 1 / 0 Регистрация: 21.01.2013 Сообщений: 83
		1
	Вывод картинки на экран 07.12.2013, 19:01. Показов 1509. Ответов 2 Метки нет (Все метки) Нужно, чтобы в Edit вводили путь папки в которой находится изображение, нажимали Enter и в Image появлялась картинка. 0

@KatrinVev 1 / 1 / 0 Регистрация: 21.01.2013 Сообщений: 83
	09.12.2013, 23:46 [ТС]	2
	неужели никто не подскажет?( 0

	09.12.2013, 23:56

Опции темы

Вывод картинки на экран

Решение