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;
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;
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;
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
Spróbuj pierw połączyć i w OnLogin dać ten status.