Текущий архив: 2004.06.20;
Скачать: CL | DM;

Вниз

Кнопочка в 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:="Цвет";

---

← →
maxz ©   (2004-06-04 16:05) [3]


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;


---

Страницы: 1 вся ветка

Текущий архив: 2004.06.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.022 c