/
Forside
/
Teknologi
/
Udvikling
/
Delphi/Pascal
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
Delphi/Pascal
#
Navn
Point
1
oldwiking
603
2
jrossing
525
3
rpje
520
4
EXTERMINA..
500
5
gandalf
460
6
gubi
270
7
DJ_Puden
250
8
PARKENSS
230
9
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
Alle emner
Teknologi
Udvikling
Delphi/Pascal
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177552
Tips :
31968
Nyheder :
719565
Indlæg :
6408849
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.