
Последние записи
- Прозрачность тайлсета в 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 на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука

22nd
Июл
Как программно изменить цвет любого компонента?
Posted by Chas under Delphi
Мне нужно программно изменить цвет активного компонента, т.е. чтобы когда выбираешь какой-то компонент, то можно менять его цвет, например.
EUGY
procedure TForm1.sColorBox1Change(Sender: TObject);
begin
TWinControl(ActiveControl).Brush.Color:=Form1.sColorBox1.Color;
//TWinControl(ActiveControl).Repaint();
end;