редактирование или добавление нового

← →
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]

спасибо!

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

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

type
TEditMode = (emAdd, emEdit);

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

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

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