Delphi Создайте приложение, на форму которого помещены ...
Delphi
Создайте приложение, на форму которого помещены компоненты: Button и OpenDialog. Напишите обработчик события OnClick компонента Button, который открывает диалог OpenDialog и, в случае положительного ответа, загружает в память компьютера выбран-ный пользователем графический файл BMP и отображает его в центре формы.
Есть ответ
17.12.2022
410
Ответ
procedure TForm1.Button1Click(Sender: TObject);varb:TBitmap;x,y:integer;beginif OpenDialog1.Execute and (AnsiLowerCase(ExtractFileExt(OpenDialog1.FileName))='.bmp') thenbeginb:=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;
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
