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

[Life9]

Прошу не бить, работаю с дельфи менее недели

Возникли вопросы:

Есть форма ввода и кнопка, нужно сделать так, что бы если в форме введено менее 15 символов на кнопку нажать было нельзя, и второе, при нажатии на кнопку нужно сделать, что бы вылетало окошко с текстом.

Delphi 7

Заранее благодарен.

[doniyor]

1. Сделай кнопку active=false
2. Напиши условие при котором если длина строки Edit1 меньше 15, то Button1.Active=false else
begin
Button1.active=true;
Showmessage('ПРИВЕТ');
end;

[psycho-coder]

Мне кажется он имел виду окошко с введенным текстом

ShowMessage(Edit1.Text);

[Life9]

не выходит...



а про 2 можно попроще? не понял что то

и вот ещё что, нужно сделать эту хню на одну кнопку, так что тогда ставить актив тру или актив фалс?

[Life9]

Сообщение от psycho-coder

Мне кажется он имел виду окошко с введенным текстом

ShowMessage(Edit1.Text);

нет =)
окно как при ошибке к примеру, такое

[Lime]

Омг ...

procedure TForm1.Edit1Change(Sender: TObject);
begin
if length(edit1.text) >= 15 then button1.enabled := true;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(edit1.text);
end;

Так правильней ...

[Life9]

оказыввается я дуб дубом, ибо нихера не понял...

[psycho-coder]

окно как при ошибке к примеру, такое

Вот как при ошибке

MessageBox(Handle, 'Сообщение', 'Заголовок', MB_OK+MB_ICONERROR);

[Life9]

кароче объясняю ещё раз,
есть:

нужно:
1. если в поле не введено любых 15 символов то на кнопку нажать нельзя.
2. если введено, то нажать соотв. можно, при нажатии выскакивает такое окошко:

с текстом.
вот так всё мудрено...

[Life9]

Сообщение от psycho-coder

Вот как при ошибке

MessageBox(Handle, 'Сообщение', 'Заголовок', MB_OK+MB_ICONERROR);

спасибо) с окном разобрались, терь с полем...)