/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Popupmenu (D4)
Fra : PA


Dato : 26-05-02 17:54

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



 
 
Juno (27-05-2002)
Kommentar
Fra : Juno


Dato : 27-05-02 06:51

"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 (27-05-2002)
Kommentar
Fra : Juno


Dato : 27-05-02 07:07

"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
>
>



PA (27-05-2002)
Kommentar
Fra : PA


Dato : 27-05-02 18:40

"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



Harald (27-05-2002)
Kommentar
Fra : Harald


Dato : 27-05-02 06:53

"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




Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste