[poli-smen]

Сообщение от izyaslaw

И у меня ещё один тогда вопрос. Как сделать точно такое же сохранение только через SaveDialog?????

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
  begin
    with GetFormImage do
    try
      SaveToFile(SaveDialog1.FileName);
    finally
      Free;
    end;
  end;
end;