[es] - Zasto mi GroupButton ne radi?

apex
kikinda

Član broj: 31144
Poruke: 918
82.208.201.*

Sajt: www.polovni-delovi.com

+1 Profil

^{12.11.2005. u 14:59 - pre 224 meseci}

Zna li neko zasto ovo ne radi?

Code:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i := 1 to (Timer1.Interval) do
    AnalogMeter1.Value := i;
    begin
          if RadioGroup1.Caption = 'LOGOFF' then
          ExitWindowsEx(EWX_LOGOFF,1);
          if RadioGroup1.Caption = 'SHUTDOWN' then
          ExitWindowsEx(EWX_SHUTDOWN,1);
          if RadioGroup1.Caption = 'REBOOT' then
          ExitWindowsEx(EWX_REBOOT,2);
          if RadioGroup1.Caption = 'FORCE' then
          ExitWindowsEx(EWX_FORCE,4);
          if RadioGroup1.Caption = 'POWEROFF' then
          ExitWindowsEx(EWX_POWEROFF,0);
          if RadioGroup1.Caption = 'FORCEIFHUNG' then
          ExitWindowsEx(EWX_FORCEIFHUNG,16);
          if RadioGroup1.Caption = 'HIBERNATE' then
          SetSystemPowerState(False,False);

end;
end;

Probao sam i sa ItemIndex
A ovo radi:

Code:
AnalogMeter1.Value := i;
          if RadioButton1.Checked then
          ExitWindowsEx(EWX_LOGOFF,0);
          if RadioButton2.Checked then
          ExitWindowsEx(EWX_SHUTDOWN,0);
          if RadioButton3.Checked then
          ExitWindowsEx(EWX_REBOOT,0);
          if RadioButton4.Checked then
          ExitWindowsEx(EWX_FORCE,0);
          if RadioButton5.Checked then
          ExitWindowsEx(EWX_POWEROFF,0);
          if RadioButton6.Checked then
          ExitWindowsEx(EWX_FORCEIFHUNG,0);
          if RadioButton7.Checked then
          SetSystemPowerState(False,False);

_{[Ovu poruku je menjao apex dana 12.11.2005. u 15:59 GMT+1]}

http://www.polovni-delovi.com - Najveći portal polovnih delova za sve tipove vozila

Odgovor na temu

Milos D
Beograd

Član broj: 5621
Poruke: 280
*.adsl.sezampro.yu.

+1 Profil

Re: Zasto mi GroupButton ne radi?

^{13.11.2005. u 10:58 - pre 224 meseci}

RadioGroup1.Caption je obični caption koji je fiksan i ne zavisi od odabrane opcije.

Predlazem ovakav kod:

case RadioGroup1.ItemIndex of
0 : ExitWindowsEx(EWX_LOGOFF,1);
1 : ExitWindowsEx(EWX_SHUTDOWN,1);
...

Inače gledam tvoj kod...

if RadioButton1.Checked ...

ako koristiš radio group, odakle ti RadioButton1? Tj. ako si koristio RadioGroup.Items onda ne možeš ovako da pristupaš pojedinačnim radio buttonima?!?

Odgovor na temu

apex
kikinda

Član broj: 31144
Poruke: 918
82.208.201.*

Sajt: www.polovni-delovi.com

+1 Profil

Re: Zasto mi GroupButton ne radi?

^{13.11.2005. u 13:17 - pre 224 meseci}

Citat:

ako si koristio RadioGroup.Items onda ne možeš ovako da pristupaš pojedinačnim radio buttonima?!?

yeeeesssssss.

Code:
case RadioGroup1.ItemIndex of
0 : ExitWindowsEx(EWX_LOGOFF,1);
1 : ExitWindowsEx(EWX_SHUTDOWN,1);
...

- probao, radi hvala

http://www.polovni-delovi.com - Najveći portal polovnih delova za sve tipove vozila

Odgovor na temu