Форум: "Основная";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];
ВнизКнопочка в 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.032 c