Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Вниз

Про Это. 


Лана Розанова   (2002-01-22 14:51) [0]

На форме четыре кнопки. При нажатии какой-либо как узнать на какую именно нажали.



NLO   (2002-01-22 14:55) [1]

Form1.caption := (Sender as TButton).Name



MBo   (2002-01-22 14:56) [2]

если всем кнопкам один обработчик присвоен, то в нем
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:=TButton( Sender).name;
или
if Sender=Button1 then...



Вячеслав   (2002-01-22 18:01) [3]

А еще у компонентов есть свойство Tag-специально для таких целей.
Типа Лонгинт. Его предварительно заполнить надо :), а дальше как советовали, например:
TButton(Sender).Tag;
Из документации:
Tag has no predefined meaning. The Tag property is provided for the convenience of developers. It can be used for storing an additional integer value or it can be typecast to any 32-bit value such as a component reference or a pointer.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.03 c
1-18849           well                  2002-01-22 13:09  2002.02.07  
Вопрос по TTreeViev (TTreeNode)


14-18975          Igor_from_Podolsk     2001-12-18 09:46  2002.02.07  
Помогите!!! Срочно!!! Инсталяция Кристал-репортс 7 в Delhi 5!!!


14-18954          DinaraRu              2001-12-17 23:29  2002.02.07  
Забытый пароль


1-18922           Steel Ice             2002-01-24 10:48  2002.02.07  
Как можно справица с TWebBrowser?


1-18913           Reals                 2002-01-21 19:53  2002.02.07  
Как подцепить в процедуру копирования файла ProgressBar...