Legfrissebb anyagok
IT café témák
PROHARDVER! témák
Mobilarena témák
GAMEPOD.hu témák
Keresés
Új hozzászólás Aktív témák
-
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
Aktív témák
Új prémium hirdetések