Forum: Multimedia
Delphi
by marabu,
7. Feb 2006
Du kannst das Verzeichnis vorwählen - im Code oder auch über den Object Inspector:
procedure TForm1.LoadButtonClick(Sender: TObject);
begin
with OpenPictureDialog do
begin
InitialDir := 'C:\Media\Images\';
Filter := 'Bild-Dateien|*.bmp|Alle Dateien|*.*';
DefaultExt := 'bmp';
Forum: Multimedia
Delphi
by marabu,
7. Feb 2006
Hallo Wieland,
wenn du dir zwei Schalter (LoadButton, SaveButton) auf deine Form ziehst, dazu aus der Palette die Dialog-Komponenten OpenPictureDialog und SaveDialog, dann geht es so:
procedure TForm1.LoadButtonClick(Sender: TObject);
begin
with OpenPictureDialog do
if Execute then
Image.Picture.LoadFromFile(FileName);