Взаимодействие динамически созданных кнопок

[Rilmeer]

Всем привет. Суть проблемы такая: я динамически создал для неких нужд 2 кнопки, создал для них события. С этим всё в порядке, но у меня в кач-ве дополнительного выделения активной кнопки используется толщина шрифта, так вот при нажатии на нединамически созданные кнопки динамисески созданные нормально развыделяются, также при нажатии на вторую динамическую первая развыделяется, но при нажатии на первую динамическую она срабатывает (выделяется), но вторая так и остается жирной.
Код просматривал много раз- вроде без глупостей (типо перепутать идентификаторы местами и тд). Ткните носом плиз.

if tag=1 then begin//тег первой кнопки
if not(fsbold in newt[1].Font.Style) then begin//выделяем её
newt[1].Font.Style:=newt[1].Font.Style+[fsbold];
//остальные кнопки
if fsbold in button2.Font.Style  then
button2.Font.Style:=button2.Font.Style-[fsbold];
if fsbold in button3.Font.Style  then
button3.Font.Style:=button3.Font.Style-[fsbold];
if fsbold in button4.Font.Style  then
button4.Font.Style:=button4.Font.Style-[fsbold];
if fsbold in button5.Font.Style  then
button5.Font.Style:=button5.Font.Style-[fsbold];
if fsbold in button6.Font.Style  then
button6.Font.Style:=button6.Font.Style-[fsbold];
if fsbold in button7.Font.Style  then
button7.Font.Style:=button7.Font.Style-[fsbold];
if fsbold in newt[2].Font.Style  then//развыделяем вторую кнопку
newt[2].Font.Style:=newt[2].Font.Style-[fsbold];
end;
end
else begin//эта кнопка работает отлично
if not(fsbold in newt[2].Font.Style) then begin
newt[2].Font.Style:=newt[2].Font.Style+[fsbold];
//остальные кнопки
if fsbold in button2.Font.Style  then
button2.Font.Style:=button2.Font.Style-[fsbold];
if fsbold in button3.Font.Style  then
button3.Font.Style:=button3.Font.Style-[fsbold];
if fsbold in button4.Font.Style  then
button4.Font.Style:=button4.Font.Style-[fsbold];
if fsbold in button5.Font.Style  then
button5.Font.Style:=button5.Font.Style-[fsbold];
if fsbold in button6.Font.Style  then
button6.Font.Style:=button6.Font.Style-[fsbold];
if fsbold in button7.Font.Style  then
button7.Font.Style:=button7.Font.Style-[fsbold];
if fsbold in newt[1].Font.Style  then
newt[1].Font.Style:=newt[1].Font.Style-[fsbold];
end;
end;

[evg_m]

if tag=1 then begin//тег первой кнопки

какой такой?
откуда взялась эта переменная tag? по коду не видно.

можно сделать проще (без всяких проверок)

// сбрасываем ВСЕ кнопки без исключения
    newt[1].Font.Style:=newt[1].Font.Style-[fsbold];
    button2.Font.Style:=button2.Font.Style-[fsbold];
    button3.Font.Style:=button3.Font.Style-[fsbold];
    button4.Font.Style:=button4.Font.Style-[fsbold];
    button5.Font.Style:=button5.Font.Style-[fsbold];
    button6.Font.Style:=button6.Font.Style-[fsbold];
    button7.Font.Style:=button7.Font.Style-[fsbold];
    newt[2].Font.Style:=newt[2].Font.Style-[fsbold];
// для той кнопки какую нажали выставили
// sender 'это именно тот объект (та кнопка) которую нажали
  (sender as TButton).font.Style:=(sender as TButton).Font.Stype +[fsbold];

[Rilmeer]

Я сделал по вашему примеру- ничего не изменилось. Даже если просто вставить в код первой кнопки одну строку newt[2].Font.style:=newt[2].Font.style-[fsbold];
, то по-прежнему вторая не развыделяется.

[evg_m]

я динамически создал для неких нужд 2 кнопки, создал для них события

покажите весь код создания и настройки оных.

[Rilmeer]

Генерация самой кнопки

inc(nbut);
newt[nbut]:=tbutton.Create(form1);
newt[nbut].Parent:=form1;
newt[nbut].caption:=e.Text;
if nbut=1 then //nbut служит для определения первая или вторая кнопка сейчас создаётся (максимум 2 какраз)
newt[nbut].OnClick:=newt1Click //если кнопка одна, то для неё 
выполняется только это событие (есть мнение, что срабатывает всегда это событие для 1ой кнопки, отсюда и последствие)
else
newt[nbut].OnClick:=newt2Click;// если две, то для обоих вып-ся это
newt[nbut].Top:=168;
newt[nbut].Height:=18;

события. С распределением по событиям может и тупо, но иначе у меня вылезала ошибка при 1ой созданной кнопке (ведь ссылка на развыделение второй присутствовала)

procedure TForm1.newt1Click (Sender: TObject);  //если создана одна кнопка
begin
if not(fsbold in newt[1].Font.Style) then begin
newt[1].Font.Style:=newt[1].Font.Style+[fsbold];
if fsbold in button2.Font.Style  then
button2.Font.Style:=button2.Font.Style-[fsbold];
if fsbold in button3.Font.Style  then
button3.Font.Style:=button3.Font.Style-[fsbold];
if fsbold in button4.Font.Style  then
button4.Font.Style:=button4.Font.Style-[fsbold];
if fsbold in button5.Font.Style  then
button5.Font.Style:=button5.Font.Style-[fsbold];
if fsbold in button6.Font.Style  then
button6.Font.Style:=button6.Font.Style-[fsbold];
if fsbold in button7.Font.Style  then
button7.Font.Style:=button7.Font.Style-[fsbold];
end;
end;
procedure TForm1.newt2Click (Sender: TObject);// если создано 2 кнопки. ваш вариант кода
begin
newt[1].Font.style:=newt[1].Font.style-[fsbold];
button2.Font.Style:=button2.Font.Style-[fsbold];
newt[2].Font.style:=newt[2].Font.style-[fsbold];
button3.Font.Style:=button3.Font.Style-[fsbold];

button4.Font.Style:=button4.Font.Style-[fsbold];

button5.Font.Style:=button5.Font.Style-[fsbold];

button6.Font.Style:=button6.Font.Style-[fsbold];

button7.Font.Style:=button7.Font.Style-[fsbold];
(sender as TButton).font.Style:=(sender as TButton).Font.Style +[fsbold];

Nbut:integer; newt: array[1..2] of tButton;- описаны в переменных вверху на всю форму,
события newt1Click и newt2Click описаны в паблике.

[Rilmeer]

ёкарный бабай) . сейчас читал своё сообщение и сам понял суть)
inc(nbut);
newt[nbut]:=tbutton.Create(form1);
newt[nbut].Parent:=form1;
newt[nbut].caption:=e.Text;
if nbut=1 then
newt[nbut].OnClick:=newt1Click
else
newt[nbut].OnClick:=newt2Click
при втором нажатии (когда задаётся событие для 2х кнопок) nbut уже =2, а значит уже не указывает на первую кнопку (newt[1]), тоесть для неё событие остаётся по-прежнему newt1Click