Много BitBtn ов

← →
DDA © (2004-02-08 23:27) [0]

Есть много BitBtn"ов . Все они ссылаются на одну процедуру
как мне в этой процедуре узнать какая кнопка была нажата (Caption)
в VCL я делал так
(sender as TSpeedButton).caption
А как это будет в KOL?

← →
имя (2004-02-09 06:12) [1]

Удалено модератором

← →
DDA © (2004-02-09 11:06) [2]

> Acorp (09.02.04 06:12) [1]
> PControl( Sender ).Caption

Благодарю,работает.

← →
DDA © (2004-02-09 15:28) [3]

Толко не совсем так как хотелось.
Почему-то в первый раз PControl( Sender ).Caption возвращает
правильный Caption ,а в остальные разы уже не те а тот который был первым Caption"ом.
И вообще какие-то одни глюки.
Наставил много BitBtn"ов - все тормозит, перерисовывается долго.
Некоторые поставил на одну процедуру а некоторые на другую.
И что ,на какую первый раз нажал - та и будет процедура все время вызываться.Даже просто бросил Button (без процедуры) и то переходит на первую процедуру.И даже на панели в Delphi нажимаю
Program Reset(Ctlr+F2) и тут вызывается процедура(первая),правда выполниться не успевает

← →
имя (2004-02-10 08:50) [4]

Удалено модератором

Много BitBtn ов Найти похожие ветки