Я хотел бы использовать 2 элемента TEdit и кнопку для этого. Как я могу проверить, имеют ли все Edit какое-то текстовое значение. После этого я хочу активировать кнопку.
Событие Onshow основной формы: Btn1.Enabled:=false;
если Edit1.text + Edit2.text имеют значение, то btn1.enabled:=true ?
Спасибо за помощь!
Вы используете действия? Если нет, вы должны рассмотреть это.
Добавьте TActionList в свое приложение, если у вас его еще нет. Затем добавьте к нему TAction. Установите свойства действия так, чтобы оно напоминало кнопку. (То есть установите заголовок и переместите обработчик события OnClick кнопки в OnExecute действия. обработчик.) Назначьте свойству Action кнопки ссылку на новый объект действия.
Наконец, обработайте событие действия OnUpdate. В нем включите или отключите действие по мере необходимости. Кнопка (и любые другие элементы управления, которые вы позже свяжете с тем же действием) будут обновлены соответствующим образом.
procedure TSteveForm.ButtonActionUpdate(Sender: TObject);
begin
TAction(Sender).Enabled := (Edit1.Text <> '') and (Edit2.Text <> '');
end;
Это очень похоже на обработку событий OnChange элементов управления редактированием, но отличия становятся очевидными при изменении сценария:
OnChange, вам нужно изменить процедуру и назначить ее свойству OnChange каждого нового элемента управления.OnChange, которое позволяет узнать, когда что-то изменилось. События OnUpdate действий избавляют вас от необходимости точно знать, когда обновление является подходящим. Они запускаются во время простоя программы и по требованию.Используйте событие Edit1.OnChange и настройте его так, чтобы оно также обрабатывало Edit2.OnChange. Код обработчика события прост:
procedure TForm1.Edit1Change(Sender: TObject);
begin
Btn1.Enabled := (Edit1.Text <> '') and (Edit2.Text <> '');
end;
