PC Professionell 2003 July/PCpro_2003_07.ISO/vollvers/edhtml/EdHTMLv5.0.exe/Main/okna_dialogowe2.pas

Pascal/Delphi Source File | 2003-05-14 | 370 b | 22 lines

{        ..::EdHTML::..      }
{     System Plug-In v1.0    }
{ Autor: Karol Wierzcholowski}


// Przyklad: Okno dialogowe 2

var OkienkoOtworz : TOpenDialog;

begin
   OkienkoOtworz:=TOpenDialog.Create(nil);


   if OkienkoOtworz.Execute Then
   begin
      NowyPlik;
      WczytajPlik(OkienkoOtworz.FileName);
   end;
   OkienkoOtworz.Free;
end;