динамические кнопки

← →
Дмитрий12 (2006-05-20 01:12) [0]

Создаю на groupbox 10 кнопок.Делаю для них процедуру нажатия с западанием
(Sender as Tbitbtn).Perform( BM_SETSTATE ,1, 1 );
При нажатии на кнопки всё работает нормально,но после нажатия первой(самой левой) любое нажатие на одну из десяти трактуеться как нажатие на эту первую.
Ставлю в начале обработчика нажатия
showmessage(Sender as Tbitbtn).hint; и всё работает нормально.
Вопрос: В чем проблема, и кто глючит я или delphi?

← →
Плохиш © (2006-05-20 01:40) [1]

> Вопрос: В чем проблема, и кто глючит я или delphi?

Ответ: Глючишь ты.

← →
Дмитрий12 (2006-05-20 10:41) [2]

Если я то в чем?

← →
KSergey © (2006-05-20 14:28) [3]

> Дмитрий12 (20.05.06 10:41) [2]
> Если я то в чем?

Код давай.

← →
Дмитрий12 (2006-05-20 18:54) [4]

Я же говорю
procedure TForm2.FormShow(Sender: TObject);

begin

form10.groupbox2.Enabled :=false;

for i:=1 to 16 do

begin
form10.bitbtn1:=Tbitbtn.Create(Form2);
with form10.bitbtn1 do
begin
Parent := form10.groupbox2;
glyph:=g ;
font.Color :=clred;
if (i-8)<=0 then ii:=i-1 else ii:=i;
Caption := IntToStr(abs(ii-8));

Height := 25;
Width := 25;
if j=1 then
hint:=inttostr(ii-8) else hint:=inttostr(ii+8+1);
Left :=2+(i-1)*25;
OnClick :=bitbtn1Click;
end;
end;
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
(Sender as Tbitbtn).Perform( BM_SETSTATE ,1, 1 );
end;
Даже так глючит

динамические кнопки Найти похожие ветки