Кнопочка в StringGrid

← →
killer © (2004-06-04 14:50) [0]

создаю я в яцейке StringGrida программно кнопочку....

with TBitBtn.Create(StringGrid1) do
begin
Parent:=StringGrid1;
BoundsRect:=StringGrid1.CellRect(4, i);
OnMouseUp:=BitBtn1MouseUp;
end;

а как теперь программно поменять в ней например цвет шрифта?

пишу:

for i:=StringGrid1.ControlCount-1 downto 0 do
if (StringGrid1.Controls[I]) is TBitBtn) then
StringGrid1.Controls[I].Font.Color:="Цвет";

Вылитает ошибка

← →
killer © (2004-06-04 15:58) [1]

Help

← →
Семен Сорокин © (2004-06-04 15:59) [2]

TBitBtn(StringGrid1.Controls[I]).Font.Color:="Цвет";

var Buttons: array of TButton; begin {Создать кнопку} SetLength(buttons,1); Buttons[0]:=TButton.Create(StringGrid1); with Buttons[0] do begin Parent:=StringGrid1; BoundsRect:=StringGrid1.CellRect(1, 2); Caption:="111"; end; {Поменятьцвет} Buttons[0]Font.Color=... end;

Кнопочка в StringGrid Найти похожие ветки