23.06.2007, 22:55
|
|
Познающий
Регистрация: 26.03.2007
Сообщений: 87
С нами:
10067457
Репутация:
30
|
|
Сообщение от TheSADIST
А аську и пароль надо вписывать в форме 1 в самом низу два текст эдита...
Так, компонеты я добавил.
Вот немного не втыкаю куда асю прописать куда пароли будут отплывать.
Вот отрывок из формы 1 (низ страници)
Код:
procedure TForm1.btn5Click(Sender: TObject);
var
m:Pchar;
begin
if edt2.Text=''
then
ShowMessage('Введите пароль для регистрации нового номера ICQ');
sleep(2000);
Image1.Visible:=true;
pnl2.Caption:='Картинка полученна..'
end;
procedure TForm1.edt3Change(Sender: TObject);
begin
if edt3.Text='35347' then
btn6.Enabled:=true
else
btn6.Enabled:=false;
end;
Правельно я выделил зеленым цветом куда надо вписать свою аську ?
Извените, но тока скачал учебник по делфи.
Спасибо заранее.
|
|
|