Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

динамические кнопки [D7]

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

Дмитрий12 (2006-05-20 18:54:00) [1]
Я же говорю
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;
Даже так глючит

KSergey (2006-05-20 14:28:00) [2]
> Дмитрий12 (20.05.06 10:41) [2]
> Если я то в чем?

Код давай.

Дмитрий12 (2006-05-20 10:41:00) [3]
Если я то в чем?

Плохиш (2006-05-20 01:40:00) [4]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »