Последние записи
- Как сделать картинку адаптивной, само растягивающейся к размеру монитора, чтобы размер баннера изменялся сам — подстраивался под дизайн сайта
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
22nd
Июл
Как программно изменить цвет любого компонента?
Posted by Chas under Delphi
Мне нужно программно изменить цвет активного компонента, т.е. чтобы когда выбираешь какой-то компонент, то можно менять его цвет, например.
EUGY
procedure TForm1.sColorBox1Change(Sender: TObject);
begin
TWinControl(ActiveControl).Brush.Color:=Form1.sColorBox1.Color;
//TWinControl(ActiveControl).Repaint();
end;
