Текущий архив: 2007.10.14;
Скачать: CL | DM;
Вниз
Три ComboBox и кнопка... Найти похожие ветки
← →
Ohotnic (2007-09-20 09:26) [0]Имеем три ComboBox и кнопку. Надо чтобы кнопка была отключенной и включалось только когда все три ComboBoxa заполнены текстом.
Спасибо за внимание.
← →
Однокамушкин (2007-09-20 09:31) [1]У каждого ComboBox-а в событии OnChange проверять, заполнены ли и остальные ComboBox-ы тоже, и включать кнопку только если заполнены все три
← →
Сергей М. © (2007-09-20 09:35) [2]Назначаешь единый обработчик события OnChange для всех трех комбобоксов.
В теле обработчика:Button.Enabled := (ComboBox1.Text <> "") and (ComboBox2.Text <> "") and (ComboBox3.Text <> "")
← →
Ega23 © (2007-09-20 09:38) [3]
TForm1 = class(TForm)
.............
procedure FormCreate(Sender: TObject);
procedure ComboBoxesChange(Sender: TObject);
.............
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.OnChange := ComboBoxesChange;
ComboBox2.OnChange := ComboBoxesChange;
ComboBox3.OnChange := ComboBoxesChange;
end;
procedure TForm1.ComboBoxesChange(Sender: TObject);
begin
Button1.Enabled := (ComboBox1.Text<>"") and (ComboBox2.Text<>"") and (ComboBox3.Text<>"");
end;
← →
clickmaker © (2007-09-20 10:09) [4]я бы добавил еще Trim(ComboBox1.Text)
Страницы: 1 вся ветка
Текущий архив: 2007.10.14;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.025 c
