Скачать: CL | DM;

редактирование или добавление нового   Найти похожие ветки 

← →
denis24   (2004-10-18 11:41) [0]

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

---

← →
[lamer]Barmaglot ©   (2004-10-18 11:47) [1]

Sender?

---

← →
ЮЮ ©   (2004-10-18 11:51) [2]

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

---

← →
panov ©   (2004-10-18 11:56) [3]

>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 12:02) [4]

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

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

---

← →
denis24   (2004-10-18 12:27) [5]

спасибо!

---

← →
TUser ©   (2004-10-18 12:34) [6]

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

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

---

← →
Sandman25 ©   (2004-10-18 12:44) [7]

type
 TEditMode = (emAdd, emEdit);

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c