Изменение ширины ScrollBar в cxGrid

← →
shurets © (2012-05-17 10:40) [0]

Хочу изменить ширину ScrollBar в cxGrid.

Вот так работает:

procedure TForm1.Button1Click(Sender: TObject);
begin
View.Site.VScrollBar.Width := GetSystemMetrics(SM_CXVSCROLL) * 2;
View.LayoutChanged;
end;

А так не работает:

procedure TForm1.FormShow(Sender: TObject);
begin
View.Site.VScrollBar.Width := GetSystemMetrics(SM_CXVSCROLL) * 2;
View.LayoutChanged;
end;

Очевидно, что нужно, чтобы ширина ScrollBar изменялась без нажатий на кнопку.
Как это сделать?

← →
brother © (2012-05-17 11:03) [1]

на форму кинь таймер, аткив ему и интервал 1мс, в он таймер выключи таймер (он нужен один раз, типа формшоу) и далее в таймере твой код

← →
shurets © (2012-05-17 11:13) [2]

brother,

Пробовал, работает. Хочется как-нибудь поизящнее :)

← →
sniknik © (2012-05-17 11:59) [3]

> Хочется как-нибудь поизящнее :)
FormActivate ?

← →
shurets © (2012-05-17 12:18) [4]

> FormActivate ?

Аналогично OnShow :(

← →
sniknik © (2012-05-17 18:00) [5]

значит зависит не от того в каком событии, а от того, что кто-то (сам cxGrid?) меняет размер... и нужно найти где.

вот сделай изменение в FormShow, а по кнопке проверь размер, он остался измененным или вернулся к изначальным? возможно нужно делать в афтеропен связанного датасета.

А в отладке работает?

> Пробовал, работает.

так предупреждать надо!

> Хочется как-нибудь поизящнее

> что кто-то (сам cxGrid?) меняет размер... и нужно найти
> где.

имхо генофонд копать нужно...

Изменение ширины ScrollBar в cxGrid Найти похожие ветки