Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];

Вниз

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

 
Дмитрий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 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.047 c
15-1146824709
iamdanil
2006-05-05 14:25
2006.06.04
Пополнение кошелька с мобильного телефона


15-1147128713
Петр
2006-05-09 02:51
2006.06.04
Преобразование из StringGrid в DBGrid


4-1136257669
Antonio
2006-01-03 06:07
2006.06.04
Учётная запись Win XP


3-1144138909
Бульбаш
2006-04-04 12:21
2006.06.04
Позиция курсора в гриде


4-1142155729
Volf_555
2006-03-12 12:28
2006.06.04
Как закрыть окно Microsoft Internet Explorer?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский