Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Zasto mi GroupButton ne radi?

[es] :: Pascal / Delphi / Kylix :: Zasto mi GroupButton ne radi?

[ Pregleda: 1886 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

apex
kikinda

Član broj: 31144
Poruke: 918
82.208.201.*

Sajt: www.polovni-delovi.com


+1 Profil

icon Zasto mi GroupButton ne radi?12.11.2005. u 14:59 - pre 195 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

icon Re: Zasto mi GroupButton ne radi?13.11.2005. u 10:58 - pre 195 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

icon Re: Zasto mi GroupButton ne radi?13.11.2005. u 13:17 - pre 195 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

[es] :: Pascal / Delphi / Kylix :: Zasto mi GroupButton ne radi?

[ Pregleda: 1886 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.