Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Edit1.Enabled=False; Edit1.Text= парампарам ; Как получить текст? [D5, D6, D7, Win95/98, Win2k, WinXP]

Filat © (2002-12-19 22:01:00)
т.е. идея какая, при открытии формы у меня Items у RadioGrup не отмечены, но есть вариант, что в некотором эдите может быть текст. Edit.Enabled происходит при нажатии на RadioGrup.
В итоге мне надо вот что, при открытии формы идёт определение в каком эдите есть текст и должен активироваться соответствующий Items у RadioGrup.
делаю так: if ComboEdit1.Text <> "" then RGroup1.ItemIndex:=2;
Не работает. Почему?

Filat (2002-12-24 20:32:00) [1]
YES!!!!!! Заработало!!
Прикол был в том что на тот момент когда шла проверка Edit-у ещё не было присвоено ничего, поменял местами активацию формы и все получилось. А сообразил когда пытался снова задать тут вопрос.
Во как блин бывает.... :)))))
Спасибо всем, особенно Reindeer Moss Eater и MXA, первый убедил а второй направил на правильный путь. :))))

MXA (2002-12-24 11:27:00) [2]
я проверил - все работает.
хоть в Create, хоть в Activate.

рекомендую везде где возможно
использовать OnShow

Reindeer Moss Eater (2002-12-24 11:07:00) [3]
по идее не видит текста, из-за того что состояние Edit1.Enabled=False
Чушь

Filat (2002-12-24 11:02:00) [4]
OlDemon - просто пролетает, т.е. по идее не видит текста, из-за того что состояние Edit1.Enabled=False. Но ведь прога знает что надо отобразить когда активно??!!

OlDemon (2002-12-23 13:19:00) [5]
2 Filat> ИМХО тебе это в Form.Create вставить надо. И вообще проверь пошагово и посмотри что происходит. На вид работоспособно.

Filat (2002-12-23 12:05:00) [6]
Ну кто подскажет, пожалуйста, где грабли зарылись?

Filat (2002-12-20 19:50:00) [7]
Мне надо на FormActivate или на FormCreate не знаю куда лучше, вот код:
if FilenameEdit1.Text <> "" then
RGroup1.ItemIndex:=0;
if DirectoryEdit1.Text <> "" then
RGroup1.ItemIndex:=1;
if ComboEdit1.Text <> "" then
RGroup1.ItemIndex:=2;
if FilenameEdit2.Text <> "" then
RGroup2.ItemIndex:=0;
if DirectoryEdit2.Text <> "" then
RGroup2.ItemIndex:=1;
if ComboEdit2.Text <> "" then
RGroup2.ItemIndex:=2;
Спасибо!

OlDemon (2002-12-20 08:00:00) [8]
2 filat> сделал у себя. у меня работает. возможно после If Edit1.Text<>"" then RadioGroup1.ItemIndex:=2;происходят еще события которые меняют ItemIndex. Если кода не много то вышли весь посмотрим.

Karbo (2002-12-19 22:32:00) [9]
if ComboEdit1.Text <> "" then ActiveControl:=ComboEdit1;

Filat (2002-12-19 22:26:00) [10]
А при RGroup1.ItemIndex:=2 активируется ComboEdit1. И получится то что надо, вернее хочется чтобы получилось то что надо. :)))))

Karbo (2002-12-19 22:18:00) [11]
Может быть,
RadioButton1.Checked := trim (ComboEdit1.Text) <> ""
?

Или что, по твоему, должно происходить при RGroup1.ItemIndex:=2 ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »