Вопрос по (Sender as...)

← →
Олег Крапивин (2010-12-24 23:42) [0]

Доброго времени суток господа.
Подскажите пожалуйста по простому вопросу:
На форме есть несколько компонентов TЕdit и кнопка "Заполнить TEdit.Text". При нажатии кнопки попробовал отловить (Sender as TEdit),
но при проверке оказалось, что Sender указывает на кнопку (что и должно быть). А как мне выйти на компонеты Tedit формы?
Лучше бы ссылочку...

← →
12 © (2010-12-25 00:00) [1]

z.b.
for i := 0 to componentscount -1 do
if components[i] is tedit then tedit(components[i]).text := tedit(components[i]).name

← →
Игорь Шевченко © (2010-12-25 00:50) [2]

> А как мне выйти на компонеты Tedit формы?

Edit1
Edit2
...

← →
Eraser © (2010-12-25 01:00) [3]

> [0] Олег Крапивин (24.12.10 23:42)

TButtonedEdit

← →
Германн © (2010-12-25 01:02) [4]

> А как мне выйти на компонеты Tedit формы?

Form1.ActiveControl ?

← →
Anatoly Podgoretsky © (2010-12-25 01:19) [5]

> Олег Крапивин (24.12.2010 23:42:00) [0]

Кнопку поставь SpeedButton

← →
Германн © (2010-12-25 01:46) [6]

Такая "разноплановость" ответов наталкивает на мысль настоятельно посоветовать автору прочитать о "бессмертной Саге о X, Y и Z".
http://www.gunsmoker.ru/2008/10/x-y-z.html

← →
Anatoly Podgoretsky © (2010-12-25 02:14) [7]

> Германн (25.12.2010 01:02:04) [4]

В случае TButton это TButton

← →
Германн © (2010-12-25 02:36) [8]

> Anatoly Podgoretsky © (25.12.10 02:14) [7]
>
> > Германн (25.12.2010 01:02:04) [4]
>
> В случае TButton это TButton
>

Т.е. "Телепатор" ты заранее отказался включать?

← →
KSergey © (2010-12-25 12:47) [9]

Я не понял что надо отловить собственно.
Хотя ответ "поставь SpeedButton" наталкивает на мысль, что необходим активный Edit "в момент" нажатия кнопки?

← →
_Юрий (2010-12-25 14:59) [10]

активным может быть только один винконтрол
а кнопку, она и становится активной
чтобы этого не происходило, надо использовать кнопку, которая вин-контролом не является - например SpeedButton
тогда активным продолжает оставаться эдит

← →
_Юрий (2010-12-25 15:00) [11]

а кнопку = а когда нажимают кнопку

← →
Дмитрий С © (2010-12-25 17:32) [12]

Как вариант сделать переменную в классе формы:
FLastFocusedEdit:TEdit.

У всех едитов на форме обработать onEnter, где сделать
FLastFocusedEdit:=Sender as TEdit;
А при нажатии на кнопку
if assigned(FLastFocusedEdit) then
FLastFocusedEdit.text := "...."

← →
Leonid Troyanovsky © (2010-12-25 22:55) [13]

> _Юрий (25.12.10 14:59) [10]

> вин-контролом не является - например SpeedButton
> тогда активным продолжает оставаться эдит

Можно и TButton with Default=True.
Если, конечно, жать через Enter.

--
Regards, LVT.

← →
Leonid Troyanovsky © (2010-12-25 22:58) [14]

> Дмитрий С © (25.12.10 17:32) [12]

> Как вариант сделать переменную в классе формы:

Лучше сделать каждому Edit пункт контекстного меню
или action c горячей клавишей.

--
Regards, LVT.

← →
Олег Крапивин (2010-12-28 13:12) [15]

> 12 © (25.12.10 00:00) [1]
> z.b.for i := 0 to componentscount -1 doif components[i]
> is tedit then tedit(components[i]).text := tedit(components[i]).
> name

Спасибо 12! Единственное, что подошло.
Пробовал вариант от Дмитрия [12], что-то не получилось.

А лучше всего - [3]. И никаких проблем ни у программиста, ни у юзера.

> Олег Крапивин (28.12.10 13:12) [15]

> Спасибо 12! Единственное, что подошло.

Иное испытывалось (понято было) плохо.

> Пробовал вариант от Дмитрия [12], что-то не получилось.

Remember: потерять фокус легко, а возвратить - сложно.
Особенно, по молодости.

--
Regards, LVT.

← →
Олег Крапивин (2011-01-02 10:57) [18]

> > Пробовал вариант от Дмитрия [12], что-то не получилось.
> Remember: потерять фокус легко, а возвратить - сложно.Особенно,
> по молодости.

Какая молодость???!!!! Мне через три года полтинник!!!
С наступившим Новым годом Вас и всех присутствующих!

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

Это любопытно http://citforum.ru/gazeta/165/ , тигры Лиспа впереди!
Опять концепцию написания программ менять?
Это в конференцию прочее

> Олег Крапивин (02.01.11 10:57) [18]

> > по молодости.
>
> Какая молодость???!!!! Мне через три года полтинник!!!

Поэтому так и говорят: береги фокус с молодости.

--
Regards, LVT.

← →
Студент (2011-01-09 06:35) [20]

> На форме есть несколько компонентов TЕdit и кнопка "Заполнить
> TEdit.Text".

А как Edit"ы создаются - DisignTime? Их количество и имена постоянны? Который из Edit нужно заполнить при нажатии кнопки - все?
Может просто подряд?

Procedure TForm1.OnButton1Click(...);
Begin
Edit1.Text:="one";
Edit2.Text:="two";
Edit3.Text:="three";
...
End;

> Поэтому так и говорят: береги фокус с молодости.

:D

Вопрос по (Sender as...) Найти похожие ветки