Öffnen im Paint-Programm ohne Image

[Khabarakh]

Es heißt zwar "eine Frage - ein Thread", aber du musst den zweiten nicht auch noch im falschen Bereich starten .

Delphi-Quellcode:

var Bit: TBitmap;
begin
  Bit := TBitmap.Create;
  OpenDialog.Options := [ofFileMustExist];
  if OpenDialog.Execute then
    try
      Bit.LoadfromFile(OpenDialog.FileName);
      Form1.Canvas.Draw(0, 0, Bit);
      SaveDialog.Filename := OpenDialog.FileName;
      FormFile.Caption := ExtractFileName (OpenDialog.FileName);
    except
      Application.MessageBox ('Datei konnte nicht geladen werden!',
        'Fehler', MB_OK);
    end; {Try}
  Bit.Free;
end;