Code:
//dodaje u skin submenu sve skinove iz foldera
if FindFirst('skins/*.thm*', faAnyFile, searchResult) = 0 then
begin
repeat
menuItem := TMenuItem.Create(PopupMenu1);
menuItem.Caption := searchResult.Name;
MainForm.Skin1.Add(menuItem);
until FindNext(searchResult) <> 0;
FindClose(searchResult);
end;
//dodaje u skin submenu sve skinove iz foldera
if FindFirst('skins/*.thm*', faAnyFile, searchResult) = 0 then
begin
repeat
menuItem := TMenuItem.Create(PopupMenu1);
menuItem.Caption := searchResult.Name;
MainForm.Skin1.Add(menuItem);
until FindNext(searchResult) <> 0;
FindClose(searchResult);
end;
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!