VPF::TEdit - Форум программистов

Ksen

Дата 21.6.2006, 15:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 97
Регистрация: 24.5.2006
Где: Санкт-Петербург

Репутация: нет
Всего: нет

Здравствуйте!
Подскажите, пожалуйста, как можно узнать активность компоненты TEdit?
Вообще, на форме находится три TEdit....нужно узнать на какой из трёх Edit стоит пользователь?

Poseidon

Дата 21.6.2006, 16:08 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Проверяй Focused

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Yanis

Дата 21.6.2006, 16:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Может имеет смысл переделать под свои нужды OnEnter?

Код

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure MyEditEnter(Sender: TObject);
  public
    { Public declarations }
  end;
procedure TForm1.MyEditEnter(Sender: TObject);
begin
  ShowMessage((Sender as TEdit).Name+'.Text = ' + (Sender as TEdit).Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.OnEnter := MyEditEnter;
  Edit2.OnEnter := MyEditEnter;
  Edit3.OnEnter := MyEditEnter;
end;

Это сообщение отредактировал(а) Yanis - 21.6.2006, 16:11

--------------------

*щёлк*

Poseidon

Дата 21.6.2006, 16:11 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Код


var
i: integer;
begin
for i:=0 to ControlCount-1 do
  if controls[i] is TEdit
  then
    if TEdit(controls[i]).Focused
    then ShowMessage('"Активен" компонент '+TEdit(controls[i]).Name)
end;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Yanis

Дата 21.6.2006, 16:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

А вообще свойство Focused. См. пример Poseidon'а.

--------------------

*щёлк*

Ksen

Дата 22.6.2006, 09:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 97
Регистрация: 24.5.2006
Где: Санкт-Петербург

Репутация: нет
Всего: нет

Ой, спасибо, с focused все получилось))

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »