Пара вопросов

[Life9]

Для онлайн игры

[Life9]

может я снова туплю, но...
ошибка.
это нужно пихать между бегином и эндом?

[MalCer]

У кнопки Button1 св-во Enabled поставь в false. Переходи к св-вам Edit'а . На вкладке Events найди OnChange
Теперь пиши код

procedure TForm1.Edit1Change(Sender: TObject);
var
s:string;
begin
s:=Edit1.Text;  // присваиваем переменной, то что ввели
if Length(s)>15 then  // если введено 15 символов, то
button1.Enabled:=true; // сделать кнопку активной
end;

После введенных 15 символов кнопка будет доступной. Ну и по нажатию тебе уже сказали что писать

[Life9]

спасибо но я это уже сделал =)

[MalCer]

Ой, не прочитал до конца
Ну вот как можно перейти по ссылке:

procedure TForm1.Button1Click(Sender: TObject);
var
a:PAnsiChar;
begin
a:='www.programmersforum.ru';
ShellExecute(handle,nil,a,nil,nil,SW_SHOW);
end;

или сразу

ShellExecute(handle,nil,'www.programmersforum.ru',nil,nil,SW_SHOW);

Только в раздел Uses добавь ShellApi

[QunneD]

Вот пример про кликабельную ссылку, ток немного опаздал
Даже опаздал на много xD

[Life9]

за батоны спасиб, а чтоб для текста? (Label)

[MalCer]

Ды тоже самое! Можешь сделать как у меня

procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(handle,nil,'www.programmersforum.ru',nil,nil,SW_SHOW);
end;

а можешь как у QunneD( у него пример классный!). Советую посмотреть

[Life9]

спасибо

[Life9]

народ... а кто сможет написать реггер?
нужно чтоб брал из txt файлов мыльники, логины и пароли, а остальные поля заполнял рандомно. в лс.