Скачать: CL | DM;

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

← →
Дмитрий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;
Даже так глючит

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c