Delphi Создайте приложение, ** форму которого помещены компоненты: Button и OpenDialog....

Question

Delphi

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

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
b:TBitmap;
x,y:integer;
begin
if OpenDialog1.Execute and (AnsiLowerCase(ExtractFileExt(OpenDialog1.FileName))='.bmp') then
begin
b:=TBitmap.Create;
b.LoadFromFile(OpenDialog1.FileName);
x:=(Form1.ClientWidth div 2)-(b.Width div 2);
y:=(Form1.ClientHeight div 2)-(b.Height div 2);
Form1.Canvas.Draw(x,y,b);
b.Free;
end;
end;