combobox i thgg

Odpowiedz Nowy wątek
2006-01-17 19:37

Rejestracja: 14 lat temu

Ostatnio: 14 lat temu

0

kod niedziała :( pomóżcie...

if ComboBox1.Items.Text='Niewidoczny' then HGG1.Status:=usInvisible;
if ComboBox1.Items.Text='Zajęty' then HGG1.Status:=usBusy;
if ComboBox1.Items.Text='Dostepny' then HGG1.Status:=usAvailable;

Trojan Slupek in soon.... :P

Pozostało 580 znaków

2006-01-17 19:46

Rejestracja: 14 lat temu

Ostatnio: 9 lat temu

0

to ze kod nie dziala to wiemy ale co wyswietla ?? moze sa jakies bledy pokaz reszte a nie wycinek, napisz jaki blad ci pokazuje opisz problem !!!

///
Moja dobra wola :)

if ComboBox1.Text='Niewidoczny' then HGG1.Status:=usInvisible;
if ComboBox1.Text='Zajęty' then HGG1.Status:=usBusy;
if ComboBox1.Text='Dostepny' then HGG1.Status:=usAvailable;

potrzebujesz pomocy[DELPHI] pisz:
GG:2940372
jak bede umial to pomoge !!
--------------------------------------------
Jak cos zrobilem zle napisz, ja lubie madra krytyke

Pozostało 580 znaków

2006-01-17 19:48

Rejestracja: 14 lat temu

Ostatnio: 14 lat temu

0

niedziala w ogóle zmieniam daje connect i nic :/ tutaj kod....

procedure TForm1.Button1Click(Sender: TObject);
var
INI : TINIFile;
begin
INI := TINIFile.Create(ExtractFilePath(Application.ExeName) + 'config.ini');
try
HGG1.Number:= StrToInt(INI.ReadString('System', 'Login', ''));
HGG1.Password:= INI.ReadString('System', 'haslo', '');
HGG1.Description:= Edit1.Text;
if ComboBox1.Items.Text='Niewidoczny' then HGG1.Status:=usInvisible;
if ComboBox1.Items.Text='Zajęty' then HGG1.Status:=usBusy;
if ComboBox1.Items.Text='Dostepny' then HGG1.Status:=usAvailable;
HGG1.Connect(-1);
INI.Free;
except
Application.MessageBox('Cos sknociłes... ;(','Blad');
end;
end;

// thx działa :D


Trojan Slupek in soon.... :P

Pozostało 580 znaków

2006-01-17 19:52

Rejestracja: 17 lat temu

Ostatnio: 4 lata temu

0

Spróbuj pierw połączyć i w OnLogin dać ten status.


Pozostało 580 znaków

Odpowiedz

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0