Главная страница
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.038 c
6-12009
bloodman
2003-11-04 21:13
2004.01.05
Есть ли коппоненты для работы с IPX , или подскажите (+)


8-12006
DDS
2003-09-01 17:33
2004.01.05
Как нарисовать стрелку. Ну типа как в WORDе?


1-11969
Эли
2003-12-19 12:49
2004.01.05
TMemo - количество видимых строк


8-12003
Riko
2003-09-03 13:32
2004.01.05
DelphiX for Delphi7


3-11833
Чудовище
2003-12-08 10:33
2004.01.05
Динамический курсор