Если ты забила все занчения, то попробуй сделать так:
попробуй в MainMenu сделать вкладку 'открыть' и описать так:
Код:
procedure TForm1.FOpenClick(Sender: TObject);
begin
if OpenPD.Execute then
begin
Image1.Picture.LoadFromFile(OpenPD.FileName);
Form1.ClientHeight:= Image1.Height + 10;
Image1.Top:= Form1.ClientRect.Top + (Form1.ClientHeight - Image1.Height) div 2;
Form1.ClientWidth:= Image1.Width + 10;
Image1.Left:= Form1.ClientRect.Left + (Form1.ClientWidth - Image1.Width) div 2;
Form1.Position:= poScreenCenter;
end;
end;
У меня все работает) удачи!