MainMenu: SubMenu

0

witam!

Mam taki problemik, no moze nie problemik, ale male pytanko:
Jak zrobic, aby lista submenu wczytywala sie z pliku.

Zalozmy ze w pliku mam takie pozycje:
user 1
user 2
user 3

i teraz chcialbym aby w submenu wyswietlily sie te 3 pozycje.
Nie chce dodawac recznie, bo liczba userow moze sie zwiekszyc, dlatego jest mi cos takiego po3ebne.

Jesli ktos wie, to z gory dzieki.--..::[AnubiS]::..

0

Cześć!

MainMenu.Items.Add
--Szymek

Prawo Bolingsa - jeżeli czujesz się świetnie, nie martw się, to minie.

0

Dzieki, wlasnie przed chwila na to wpadlem i ucze sie z tego korzystac :)
ale dzieki.--..::[AnubiS]::..

0

wrzucamy na forme komponent TMainMenu (o nazwie MainMenu1) a w OnCreate formy piszemy procedurke:

var
TF: TextFile;
S: String;
Itemek, Menu : TMenuItem;
begin
AssignFile(TF, 'c:\users.txt');* plik zawierajacy elementy menu
Reset(TF); * otworz plik users.txt
Menu := TMenuItem.Create(Self);* utworz menu "glowne"
Menu.Caption := 'Usery'; * pobierz napis menu "glownego"
MainMenu1.Items.Add(Menu); * dodaj menu "glowne" do MainMenu1
while not Eof(TF) do
begin
Itemek := TMenuItem.Create(Self);* utworz kolejne podmenu
Readln(TF, S); * odczytaj kolejne elementy menu
Itemek.Caption := S; * pobierz napis podmenu
Menu.Add(Itemek); * dodaj podmenu do menu "glownego"
end;
CloseFile(TF); * zamknięcie pliku
end;

o to chodzilo ? :)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

1 użytkowników online, w tym zalogowanych: 0, gości: 1