Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Problem sa PopupMenu...

[es] :: Pascal / Delphi / Kylix :: Problem sa PopupMenu...

[ Pregleda: 1746 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Dementia
Nemanja Filipovic

Član broj: 140639
Poruke: 22
*.dynamic.sbb.rs.



+1 Profil

icon Problem sa PopupMenu...13.11.2009. u 15:05 - pre 175 meseci
Pravim neki programcic i program treba da ucita skinove iz foldera i da napravi listu u skin > submenu.
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;


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!


 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Problem sa PopupMenu...13.11.2009. u 15:28 - pre 175 meseci
> 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).
 
Odgovor na temu

Dementia
Nemanja Filipovic

Član broj: 140639
Poruke: 22
*.sbb.rs.



+1 Profil

icon Re: Problem sa PopupMenu...13.11.2009. u 16:06 - pre 175 meseci
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.
Prikačeni fajlovi
 
Odgovor na temu

lan-mi
Lukic Milan
Zrenjanin

Član broj: 156359
Poruke: 140
*.dynamic.sbb.rs.

Sajt: https://lanmisoft.com


+1 Profil

icon Re: Problem sa PopupMenu...13.11.2009. u 19:27 - pre 175 meseci
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.
Arduino Control Center
 
Odgovor na temu

Dementia
Nemanja Filipovic

Član broj: 140639
Poruke: 22
*.sbb.rs.



+1 Profil

icon Re: Problem sa PopupMenu...13.11.2009. u 19:36 - pre 175 meseci
Perfektno.

Hvala puno na pomoci!
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Problem sa PopupMenu...

[ Pregleda: 1746 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.