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

Ответы 3

  • Скажите так?
  • uses graphABC;var b: picture;procedure OnKeyPress(key:integer);beginb:= Picture.Create('Channel_3');if key = 2 then b.Draw(10, 10);end.
    • Автор:

      clay15
    • 5 лет назад
    • 0
  • Объяснение:

    На чистом паскале никак. Либо используя графические библиотеки (например, 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;

    • Автор:

      marley80
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years