| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

редактирование или добавление нового [D6, Win2k]

denis24 ©   (2004-10-18 11:41:00) 

Есть форма на ней листбох,эдит,копка возле эдита.И еще две кнопки "Новый" ,"Редактировать".
Так вот в зависимости от того редактируется или добавляется запись кнопка возле эдита делает разные действия соответственно.Как в событии этой кнопки отследить какая кнопка вызвала воод или редактирование данных в эдите?

---

Sandman25   (2004-10-18 12:44:00) [1]

type
 TEditMode = (emAdd, emEdit);

procedure MyFormAddClick(Sender: TObject);
begin
 AddEdit(emAdd);
end;

procedure MyFormEditClick(Sender: TObject);
begin
 AddEdit(emEdit);
end;

---

TUser   (2004-10-18 12:34:00) [2]

> if TButton(Sender).Caption='Новый' then ...
> if TButton(Sender).Caption='Редактировать' then

if StringReplace(TButton(Sender).Caption,'&','',[rfReplaceAll]) ...

---

denis24   (2004-10-18 12:27:00) [3]

спасибо!

---

ЮЮ   (2004-10-18 12:02:00) [4]

[lamer]Barmaglot ©   (18.10.04 11:47) [1]
panov ©   (18.10.04 11:56) [3]

Кнопка возле едита - это третья кнопка, а не одна мз  "Новый" ,"Редактировать".

---

panov   (2004-10-18 11:56:00) [5]

>denis24   (18.10.04 11:41)
см. [lamer]Barmaglot ©   (18.10.04 11:47) [1]


if TButton(Sender).Caption='Новый' then ...
if TButton(Sender).Caption='Редактировать' then ...


---

ЮЮ   (2004-10-18 11:51:00) [6]

в коде кнопок "Новый" ,"Редактировать" и определяй, например, в одной "копка возле эдита".tag := 1, а в другой "копка возле эдита".tag := 2

---

[lamer]Barmaglot   (2004-10-18 11:47:00) [7]

Sender?

---

Наверх