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




Вниз

Одна обработка для кучи кнопок 


T2   (2001-12-16 07:23) [0]

Как сделать одну процедуру обработки для 10 кнопок (тлф.наборник). На кнопках стоят цифры от 0 до 9. Надо, чтоб в процедуре узнавалось, кака кнопка нажата и
ее капшион добавлялся б в переменную значения номера.



MBo   (2001-12-16 07:56) [1]

связываешь onclick всех кнопок с одним обработчиком (в инспекторе или программно)

procedure tform1.button1click(Sender:TObject);
begin
if sender is tbutton then // это необязательно
numstring:=numstring+tbutton(sender).caption;
end;




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




Наверх





Память: 0.71 MB
Время: 0.019 c
4-22473           amamed_3071           2001-11-02 13:46  2002.01.08  
Epson Printer commands


14-22414          wHammer               2001-11-12 10:48  2002.01.08  
Delphi 5 and(or(xor)) C++ Builder 5?


1-22017           Builder               2001-12-17 19:45  2002.01.08  
Как ставить свою строку в текущий едит?


14-22354          Nemesis               2001-10-08 13:02  2002.01.08  
Мобила


1-22065           victor                2001-12-19 07:30  2002.01.08  
про WebBrowser