---

Hejsa

Jeg er ved at lave en liste over filer i min File menu, noget i stil med det
man ser i word o.l. med en liste over de seneste filer. Menuen skal
indeholde alle .pfl filer i et bestemt bibliotek. Jeg bruger følgende
funktion til at hente filnavnene ind i menuen:

procedure TSetupForm.ListProfiles;
var
Search: TSearchRec;
NyMenu: TMenuItem;
I : integer;

begin
//slet gamle:
for i := 8 to file1.Count-1 do file1.Delete(8);

//indsæt nye:
if findfirst(MainForm.InstallPath + 'Profiles\*.pfl', faArchive, Search) =
0 then
repeat
NyMenu := TMenuItem.Create(Self);
NyMenu.Caption := ExtractFileName(Search.Name);
File1.Add(NyMenu);
until FindNext(Search) <> 0;
end;

Men så er jeg ikke kommet længere. Når man vælger en fil, skal det
selvfølgelig kalde en procedure. Men hvordan gør jeg det? Proceduren skal
bruge en string med filnavnet, så jeg kan hente filen.

På forhånd tak for hjælpen...
Simon

---

Hej Simon

Hermed en løsning på dit problem.
Jeg har indført en TButton for at kunne teste det og det virker.
Du må selv rette det til efter dir eget ønske.

God fornøjelse

PL

type
TSetupForm = class(TForm)
MainMenu1: TMainMenu;
File1: TMenuItem;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
InstallPath:String;
procedure ListProfiles;
procedure FileClick(Sender: TObject);
public
{ Public declarations }
end;

var
SetupForm: TSetupForm;
ResultatsStringAfOnClick:String;

implementation

{$R *.DFM}

procedure TSetupForm.Button1Click(Sender: TObject);
begin
ListProfiles;
end;

procedure TSetupForm.ListProfiles;
var
Search: TSearchRec;
NyMenu: TMenuItem;
I:Integer;
begin
//slet gamle:
While File1.Count>0 do File1.Delete(0);

//indsæt nye:
I:=FindFirst(ExtractFilePath(Application.Exename)+InstallPath +
'Profiles\*.pfl', faArchive, Search);
While I=0 do begin
NyMenu := TMenuItem.Create(Self);
NyMenu.Caption := Search.Name;
NyMenu.onClick:=FileClick;
File1.Add(NyMenu);
I:=FindNext(Search);
end;
end;

procedure TSetupForm.FormCreate(Sender: TObject);
begin
InstallPath:='\';
end;

procedure TSetupForm.FileClick(Sender: TObject);
begin
ResultatsStringAfOnClick:=TMenuItem(Sender).Caption;
end;

end.

---

"PL" <jessie-peter@get2net.dk> wrote in message
news:a1g0gv$a43$1@sunsite.dk...
> Hej Simon
>
> Hermed en løsning på dit problem.

Tak for hjælpen.

Mvh.
Simon