[Delphi] O co chodzi :-/

Witam,
Mam cos takigo. Program po nacisnieciu przycisku wyswietla MessageBox z trzema przycikami. Po wybraniu
ktoregos z nich - jego nazawa (przycisku z Messagebox) wyswietlana jest na komponencie Panel.
Wszystko fajnie nawet działa. Dlaczego jednak case musi byc: 2,6,7??

var
wartosc:integer;
begin
wartosc:=Application.MessageBox('nacisniej cos',
'INFO',mb_YesNoCancel+mb_IconInformation);
case wartosc of
2:panel1.caption:='anuluj';
6:panel1.caption:='taa';
7:panel1.Caption:='nie';

Skad to sie bierze?:?

---

cytat:kubih napisał:

Witam,
Mam cos takigo. Program po nacisnieciu przycisku wyswietla MessageBox z trzema przycikami. Po wybraniu
ktoregos z nich - jego nazawa (przycisku z Messagebox) wyswietlana jest na komponencie Panel.
Wszystko fajnie nawet działa. Dlaczego jednak case musi byc: 2,6,7??

var
wartosc:integer;
begin
wartosc:=Application.MessageBox('nacisniej cos',
'INFO',mb_YesNoCancel+mb_IconInformation);
case wartosc of
2:panel1.caption:='anuluj';
6:panel1.caption:='taa';
7:panel1.Caption:='nie';

Skad to sie bierze?:?

Funkcja MessageBox zwraca kod przycisku, który nacisnąłeś, aby w zależności od tego móc zrobić co trzeba. Każdy przycisk (także te nieużyte tutaj jak OK, ignoruj etc.) ma swój własny kod. W helpie masz zestawienie tych wszystkich wartości.

Pietrek_C

masz działający kod i jeszcze narzekasz ?? Jak Ci nie pasuje to sobie zastosuj if Application.MessageBox ...

//----------------------
gg :3183960
SZUKAM BETATESTERÓW - chętnych prosze o kontakt mail/gg

Dlatego, poniważ klawiszom tym odpowiadają liczby całkowite:
Value Numeric value
IDOK 1
IDCANCEL 2
IDABORT 3
IDRETRY 4
IDIGNORE 5
IDYES 6
IDNO 7

---

Poniważ rużnym guziczką są przypisane różne stałe liczbowe zwracane po nacisnieciu :
1 idOk
2 idCancel
3 idAbort
4 idRetry
itd aż do 7:)

---------------------------------
..::NeVeS::..
NeVeS powrócił :]
---------------------------------
"DOCERE, MOVERE, DELECTARE"

Powtarzacie sie ;) Ale teraz wszystko jasne - dzięki

cytat:kubih napisał:

Powtarzacie sie ;) Ale teraz wszystko jasne - dzięki

To dzięki systemowi moderacji który jest niezwykle szybki.:)

---------------------------------
..::NeVeS::..
NeVeS powrócił :]
---------------------------------
"DOCERE, MOVERE, DELECTARE"

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl