1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62
| unit DD;
{$mode objfpc}{$H+}
interface
uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TFF }
TFF = class(TForm)
b1: TButton;
b2: TButton;
b3: TButton;
EE: TEdit;
SD1: TSelectDirectoryDialog;
procedure b1Click(Sender: TObject);
procedure b2Click(Sender: TObject);
procedure b3Click(Sender: TObject);
private
public
end;
var FF: TFF;
implementation
{$R *.lfm}
{ TFF }
procedure TFF.b1Click(Sender: TObject);
var cD:string;
begin
if selectdirectory('Dir ?','C:\', cD)
then EE.text:='Choix = '+cD
else EE.text:='Abandon';
end;
procedure TFF.b2Click(Sender: TObject);
var options : TSelectDirOpts; cD : string;
begin
cD := 'C:\';
if selectdirectory(cD, options, 0)
then EE.text:='Choix = '+cD
else EE.text:='Abandon';
end;
procedure TFF.b3Click(Sender: TObject);
var cD:string;
begin
SD1.InitialDir:='C:\';;
if SD1.Execute
then EE.text:=SD1.fileName
else EE.Text:='Abandon';
end;
end. |
Partager