VPF::Как узнать имя контрола - Форум программистов

ivan219

Дата 14.1.2006, 23:26 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

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

Вобщем вопрос в том как я могу узнать имя контрола с которым я работаю к премеру Edit1 но при этом неисползовать процедуры типа OnClik или подобных smile

Т.е. мне надо тапа такого A:=Edit1.Text; A:=Edit2.Text; A:=Edit3.Text; соответственно.

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

Мой первый сайт и моя первая программа!!!!!

Poseidon

Дата 14.1.2006, 23:41 (ссылка)

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

Загрузка ...

Delphi developer

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

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

Цитата(ivan219 @ 14.1.2006, 22:26

)

Вобщем вопрос в том как я могу узнать имя контрола с которым я работаю к премеру Edit1

Edit1.Name

Цитата(ivan219 @ 14.1.2006, 22:26

)

Т.е. мне надо тапа такого A:=Edit1.Text; A:=Edit2.Text; A:=Edit3.Text; соответственно.

Не понял, это к чему? Зачем А присваивать три раза значение, если останется все-равно последнее?

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

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

darkart

Дата 15.1.2006, 00:19 (ссылка)

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

Загрузка ...

Опытный

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

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

Вопрос, по-конкретнее плиз, к примеру:
Навешиваешь на OnChange Editoв один и тот же код:

Код


procedure TForm1.Edit1Change(Sender:TObject);
begin
  A:=(Sender as TEdit).Text;{этот обработчик ставишь у всех editoв}
end;

A определена выше.
В данном случае в sender будет ссылка на объект, для которого вызван метод OnChange.

Это сообщение отредактировал(а) darkart - 15.1.2006, 00:24

ivan219

Дата 15.1.2006, 01:04 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

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

Нет всё решилось спасибо darkart за его код

Код


procedure TForm1.EditChange(Sender:TObject);
begin
  A:=(Sender as TEdit).Text;
end;

Это сообщение отредактировал(а) ivan219 - 15.1.2006, 01:14

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

Мой первый сайт и моя первая программа!!!!!

FRAGNATIC

Дата 15.1.2006, 01:10 (ссылка)

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

Загрузка ...

..::Свирепый Кодер::..

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

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

ivan219
теноверное пример darkart
подаёдёт
но мона и так
вот те код двух процедур из моего како-то приложения
думаю заюзаных в этом коде ф-е те хватит палюбому=)

Код


procedure TForm1.SetCaptions;
var
  i: integer;
  m:TMenuItem;
  e:TEdit;
begin
  for i:=1 to 52 do
  begin
    m:=FindComponent('N'+inttostr(i)) as TMenuitem;
    if m=nil then continue;
    e:=FindComponent('Edit'+inttostr(i)) as TEdit;
    if e=nil then continue;
    m.caption:=e.text;
  end;
end;

procedure TForm1.N1Click(Sender: TObject);
var
  Jv: TJvFilenameEdit;
  s: string;
begin
   if Length(TMenuItem(sender).Name)=2 then
     s:=copy(TMenuItem(sender).Name,length(TMenuItem(sender).Name),1)
   else
     if Length(TMenuItem(sender).Name)=3 then
     s:=copy(TMenuItem(sender).Name,length(TMenuItem(sender).Name)-1,2);


   Jv:=FindComponent('JvFilenameEdit'+s) as TJvFilenameEdit;
   if jv.Text<>'' then
     ShellExecute(handle, 'open', PChar(Jv.Text), '', '', sw_show)
   else ShowMessage('Файл не указан');
end;

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