PascalКак сделать так, что при нажатии клавиши "2" появлялась картина

Pascal
Как сделать так, что при нажатии кнопки "2" появлялась картина

Задать свой вопрос
1 ответ

Разъясненье:

На чистом паскале никак. Либо используя графические библиотеки (к примеру, GraphABC в Pascal ABC.NET), либо, к примеру Delphi.

GraphABC:

uses GrathABC;

var b: picture;

begin

b:= Picture.Create('1.png');

...

end.

Далее через функцию OnKeyDown или OnKeyPress считываем ключ с клавиатуры, и если это 2, то показываем изображение.

Приблизительно это должно смотреться так:

procedure OnKeyPress(key:integer);

begin

if key = 2 then b.Draw(10, 10);

end;

Delphi: на нём гораздо проще. Тут есть теснее готовая форма, и стандартные составляющие (спасибо Delphi за визуальность).

Через компонент TImage (вкладка Additional) загружаем изображение, устанавливаем у изображения свойство Visible:= false. Дальше через OnKeyPress основной формы считываем ключ, и если key = 2, то Image.Visible:= true;

Шахалина Таисия
Скажите так?
Подуст Виталя
uses graphABC;var b: picture;procedure OnKeyPress(key:integer);beginb:= Picture.Create('Channel_3');if key = 2 then b.Draw(10, 10);end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт