Új hozzászólás Aktív témák

• #786 Diskcopy tag Calogero #785

  Új Válasz 2005-04-27 06:44:25 #786

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Diskcopy

  tag

  válasz Calogero #785 üzenetére

  procedure TForm1.Button1Click(Sender: TObject);
  var open :TOpenPictureDialog;
  begin
  try
  open := TOpenPictureDialog.Create(self);
  open.InitialDir := ExtractFilePath(Application.ExeName);
  IF open.Execute THEN
  image1.picture.loadfromfile(open.filename);
  finally
  open.Free;
  end;
  end;
  
  Usesnál ugye hozzáadod az ExtDlgs -t és jó lesz. Üdv.

Új hozzászólás Aktív témák