
29.07.2007, 13:51
|
|
Участник форума
Регистрация: 21.04.2007
Сообщений: 289
Провел на форуме: 4612647
Репутация:
368
|
|
support_ten ,
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Enabled:=False;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) and Length(ComboBox2.Text) = 5 then
Button1.Enabled:=True;
end;
Доработай!
|
|
|