Отправлено iosifk. 04 сентября 2006 г. 14:14 В ответ на: 2 iosifk по поводу динамических кнопок(+) отправлено misyachniy 04 сентября 2006 г. 14:00

{// пример создания кнопок, символизирыющих несколько микросхем в JTAG-цепочеке
// если не кнопки, то можно сделать "Панели" или что-то в этом роде.
// если надо одну картинку на кнопку, то можно взять продвинутые кнопки - SpeedBtn BitBtn или что-то в этом роде
// потом я делал так - я на форме помещал невидимую кнопку, например под какой - нибудь панелью и перенаправлял на нее - вот это OnClick = FloorPlanForm->Button1Click;

// а в обработке этой невидимую кнопки делал обработчик чтобы найти того, кто psg[i]==Sender...

int Btns = StrToInt(Edit55->Text); // в окне записано, сколько кнопок надо создать...

if(BtnsDone!=0)
{
for(int i=0; i {
delete psg[i];
}
}

// открыть порт
for(int i=0; i {
psg[i] = new TButton(this);
psg[i]->Parent = Form1->GroupBox9;
psg[i]->Name = AnsiString("pts") + IntToStr(i);

SetWindowLong(psg[i]->Handle,GWL_STYLE,GetWindowLong(psg[i]->Handle,GWL_STYLE)|BS_MULTILINE);
psg[i]->Caption="Chip "+IntToStr(i) + "\nLoaded - ****\nManuf - ****\nIr Scan - ****\nMy Regs - ***"; // это пример многострочной надписи на кнопке...

psg[i]->Align = alNone;
psg[i]->Height = 80;
psg[i]->Width = (Form1->GroupBox9->Width-10)/Btns;
psg[i]->Top = 20;
psg[i]->Left = 5 + (psg[i]->Width)*i;
psg[i]->ShowHint=true;
psg[i]->Hint="Chip "+IntToStr(i) + "\nLoaded - ****\nManuf - ****\nIr Scan - ****\nMy Regs - ***";
/*
psg[i]->Tag = i;
//-----------------------------------------------------------
psg[i]->OnClick = FloorPlanForm->Button1Click;

а в обработке фиктивной и невидимой кнопки делаем
void __fastcall TFloorPlanForm::Button1Click(TObject *Sender)

и потом ищем, какая psg[i]-кнопка была нажата

for (int i=0;i<(Btns);i++) //Btns - это число кнопок если кликнули по кнопке
{if(psg[i]==Sender)
номер кнопки - i, И соотв. можно сказать, что в массиве эта кнопка имеет = IntToStr(psg[i]->Tag);
}

*/
}
BtnsDone = Btns;

}

Может это и криво, но так у меня работало.

• В каком компиляторе создавался проект(+)? — misyachniy   (04.09.2006 14:35 83.218.237.86, 372 байт)
  • Сейчас отправлю по почте.. Надоело бороться с этим... — iosifk.   (04.09.2006 15:01 62.16.102.166, пустое)
    • Не удаляет Наверное прийдеться поставить 6-ой Билдер(+) — misyachniy   (04.09.2006 15:53 83.218.237.86, 374 байт)
      • Тут с правильными тегами: — misyachniy   (04.09.2006 15:54 83.218.237.86, 281 байт)
        • Вроде победил, если есть интерес выложил здесь: — misyachniy   (04.09.2006 17:10 83.218.237.86, пустое, ссылка)