Problem sa PopupMenu...

Pravim neki programcic i program treba da ucita skinove iz foldera i da napravi listu u skin > submenu.


Kako sada kada neko izabere neki skin iz submenu liste, da mi ispise npr izabran je taj i taj skin?

Izvinjavam se ako slicno pitanje vec postoji na forumu...

Hvala unapred!

> Kako sada kada neko izabere neki skin iz submenu liste, da mi ispise npr izabran je taj i taj skin?

Ako sam dobro shvatio, u Captionu menija ti čuvaš naziv fajla odnosno skina, samo dodaj u onClick handleru da ispiše Caption pozvane stavke (Sender parametar).

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Izvinjavam se, ja sam malo konfuzno postavio pitanje.
Dobro si me shvatio, ali ne znam da li sam ja tebe :)
Ne znam koji broj skinova ce biti u pitanju, tj ne mogu za svaki pojedinacno da koristim onlick. Nisam siguran da si na to mislio :)
Slabo poznajem delphi i mnogo bi mi znacio primer koda kako to vec treba...

Hvala!

ovde sam postavio i primer koda za svaki slucaj.

procedure TForm1.tvojaproceduraclick(sender:TObject);
begin
showmessage(getcurrentdir+'\skins\'+(sender as Tmenuitem).Caption);
//ovde napisi sta ti treba
end;
procedure TForm1.FormCreate(Sender: TObject);
var
I : Byte;
searchResult : TSearchRec;
menuItem : TMenuItem;
begin

//pronadji sve skinove iz skins foldera
if FindFirst('skins/*.thm', faAnyFile, searchResult) = 0 then
begin
repeat
menuItem := TMenuItem.Create(PopupMenu1);
menuItem.Caption := searchResult.Name;
Form1.Skin1.Add(menuItem);
menuitem.OnClick:=tvojaproceduraclick; <- ovo je novo
until FindNext(searchResult) <> 0;
FindClose(searchResult);
end;
end;
end.

Potpis

Arduino Control Center