/
Forside
/
Teknologi
/
Udvikling
/
Delphi/Pascal
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
Delphi/Pascal
#
Navn
Point
1
oldwiking
603
2
jrossing
525
3
rpje
520
4
EXTERMINA..
500
5
gandalf
460
6
gubi
270
7
DJ_Puden
250
8
PARKENSS
230
9
technet
210
10
jdjespers..
200
TMenuItem og events
Fra :
Simon Hiort-Lorenzen
Dato :
08-01-02 18:40
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
PL (
09-01-2002
)
Kommentar
Fra :
PL
Dato :
09-01-02 00:47
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.
Simon Hiort-Lorenzen (
09-01-2002
)
Kommentar
Fra :
Simon Hiort-Lorenzen
Dato :
09-01-02 03:49
"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
Søg
Alle emner
Teknologi
Udvikling
Delphi/Pascal
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177552
Tips :
31968
Nyheder :
719565
Indlæg :
6408847
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.