Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.05;
Скачать: CL | DM;

Вниз

Онклик к кнопке   Найти похожие ветки 

 
jCode   (2003-12-18 18:43) [0]

В программе динамически создается кнопка, вписанная в ячейку таблицы. Вопрос - какой присвоить этой кноппке ОнКлик, чтобы было понятно из какой строки кнопка??
Спасибо.


 
Тимохов ©   (2003-12-18 18:48) [1]

Ну блин вопрос.
Присваивай какой хочешь.
В событии анализируй sender, т.е. кнопку, и из нее и получай координаты ячейки.


 
jCode   (2003-12-18 18:55) [2]

Тогда получается, что нужно при создании кнопки как-то ее сделать узнаваемой? Код вот:
var
Knopka:Tbutton;
begin

Knopka:=(Table.Objects[ACol,Arow] as TButton);
if Knopka<>nil then
begin
Knopka.Visible:=false;
Table.Objects[ACol,Arow]:=nil;
end;

Knopka:=Tbutton.Create(Application);

knopka.Visible:=false;
Knopka.Caption:=s;
Knopka.OnClick:=wd;
Knopka.Parent:=Starter;
Knopka.Tag:=1;
Table.Objects[ACol,ARow]:=Knopka;
Dr(ACol,Arow); //отрисовка кнопки
end;


Я начинающий, так что можно поподробнее.


 
Александр из Минска ©   (2003-12-18 19:05) [3]

В Королевстве Дельфи есть статья "Жинь и смерть в run-time" Вот там все и расписано.


 
Тимохов ©   (2003-12-18 19:17) [4]

jCode (18.12.03 18:55) [2]
Совершенно верно - при создании кнопку надо сделать узнаваемой.
Решений несколько
1. Сделать потомка - TYourButton с полями Col и Row. Заносить туда значения.
2. Использовать tag - там 4 байта, разберешься как туда засунуть то, что тебе нужно.
3. Можно еще как-то - например хранить нужную информацию в name, но это изврат.

ИМХО лучше всего 1.


 
jCode   (2003-12-18 22:40) [5]

Тимохов © (18.12.03 19:17) [4]
Спасибо, для меня приемлим второй - тег это номер строки, а по ней можно любое поле взять, а другого и не надо!
спасибо!



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

Текущий архив: 2004.01.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.03 c
1-11937
Zav_Bars
2003-12-20 10:56
2004.01.05
TComboBox


3-11802
_san_
2003-12-08 18:09
2004.01.05
не работает BDE под XP


8-12004
Verg
2003-09-02 11:23
2004.01.05
Проблема при компрессии MPEG layer-3


3-11822
Nikolai_S
2003-12-08 12:59
2004.01.05
Редактирование записей в TADOQuery при запросе SELECT ... JOIN


1-11988
Никола
2003-12-19 10:11
2004.01.05
Знатоки, подскажите есть ли в DELPHI процедуры, которые