11.09.2008, 09:35
|
|
Познающий
Регистрация: 24.07.2008
Сообщений: 47
Провел на форуме:
108397
Репутация:
31
|
|
Помогите с компонентом ICQClient.
------------------
Пишут что это единственный из извесных работающий компонентов Delphi для работы с ICQ. Кто имел с ним дело хочю спросить кое-что:
На форме есть два Edit'a, кнопка ну и естественно сам компонент ICQClient. Первый Edit для ввода UIN'a, второй для пароля. Задача что-бы при нажатии на кнопку, происходило подключение и при правельном пароле Caption изменил название на Режим "OnLine":
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text='') or (Edit2.Text='')
or (StrToInt(Edit1.Text)<10000)
then
begin
MessageBox(0, 'Пожалуйста введите верно UIN и Пароль', MB_ICONWARNING);
Exit;
end;
ICQClient1.UIN:=StrToInt(Edit1.Text);
ICQClient1.Password:=Edit2.Text;
ICQClient1.ConvertToPlaintext:=true;
//логинимся к серверу в статусе Online
ICQClient1.Login;
//--------------------------------------
Button1.Enabled:=False;
Edit1.Enabled:=False;
Edit2.Enabled:=False;
end;
---------------------
При удачном соединении надо что-бы Форма1 меняло свое название:
---------------------
Код:
procedure TForm1.ICQClient1Login(Sender: TObject);
begin
Form1.Caption:=('Статус: Online')
end;
Вопрос, почему это не работает, форма не менят Caption. Tckb кто знает в чем проблема, прошу сказать что я сделал не правильно.
|
|
|