---

Jeg sidder med en Listbox hvor jeg vil have en popopmenu i. Popupmenus
indhold
skal være Disabled hvis der ikke er noget i listboxen.
Nogen der ved hvordan det gøres?
--
PA

---

"PA" <P.A@mail.dk> skrev i en meddelelse
news:3cf112ab$0$11926$edfadb0f@dspool01.news.tele.dk...
> Jeg sidder med en Listbox hvor jeg vil have en popopmenu i. Popupmenus
> indhold
> skal være Disabled hvis der ikke er noget i listboxen.
> Nogen der ved hvordan det gøres?
> --
> PA

-- kode --
procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
t: Integer;
begin
for t := 0 to PopUpMenu1.Items.Count - 1 do
PopUpMenu1.Items[t].Enabled := ListBox1.Items.Count > 0;
end;
-- kode --

--
*/*
jUno

---

"Juno" <bauerDOTjuno@get2net.dk> skrev i en meddelelse
news:3cf1c88f$0$78753$edfadb0f@dspool01.news.tele.dk...

> -- kode --
> procedure TForm1.PopupMenu1Popup(Sender: TObject);
> var
> t: Integer;
> begin
> for t := 0 to PopUpMenu1.Items.Count - 1 do
> PopUpMenu1.Items[t].Enabled := ListBox1.Items.Count > 0;
> end;
> -- kode --

Glemte lige at sige, at proceduren skal være din Popup's onPopup event.

> --
> */*
> jUno
>
>

---

"Juno" <bauerDOTjuno@get2net.dk> skrev i en meddelelse
news:3cf1c88f$0$78753$edfadb0f@dspool01.news.tele.dk...
> -- kode --
> procedure TForm1.PopupMenu1Popup(Sender: TObject);
> var
> t: Integer;
> begin
> for t := 0 to PopUpMenu1.Items.Count - 1 do
> PopUpMenu1.Items[t].Enabled := ListBox1.Items.Count > 0;
> end;
> -- kode --

Hehe, den gav mig grå hår i hovedet. Jeg ville også mene at det skulle gøres
som Junos kode.
Men det duede bare ikke - indtil jeg fandt ud af at jeg havde en tom linie i
min Listbox :-/
Takker.
--
PA

---

"PA" <P.A@mail.dk> skrev i en meddelelse
news:3cf112ab$0$11926$edfadb0f@dspool01.news.tele.dk...
> Jeg sidder med en Listbox hvor jeg vil have en popopmenu i. Popupmenus
> indhold
> skal være Disabled hvis der ikke er noget i listboxen.
> Nogen der ved hvordan det gøres?

Brug Popupmenuens OnPopup event til at checke om der er noget i listboxen,
og hvis ikke så disabler du alle menu punkterne.

Mvh
HK