combobox i thgg

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;
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;
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

0

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

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