• Delphi Создайте приложение, на форму которого помещены компоненты: Button и OpenDialog. Напишите обработчик события OnClick компонента Button, который открывает диалог OpenDialog и, в случае положительного ответа, загружает в память компьютера выбран-ный пользователем графический файл BMP и отображает его в центре формы.

Ответы 2

  • спасибо, братан, от души душевно в душу
    • Автор:

      alisson
    • 6 лет назад
    • 0
  • unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls;type  TForm1 = class(TForm)    Image1: TImage;    Button1: TButton;    OpenDialog1: TOpenDialog;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin if OpenDialog1.Execute then begin  Image1.Picture.LoadFromFile(OpenDialog1.FileName);  Image1.Stretch:=true;  Image1.Left:=form1.Width div 2-image1.Width div 2;  Image1.top:=form1.Height div 2-image1.Height div 2; endend;end.
    • Автор:

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

Войти через Google

или

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

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

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