прозрачная форма

← →
Raptoridzevv (2006-04-28 17:15) [0]

может компонент есть, хочу прозрачность сделать формы, чтобы можно было выставлять процент прозрачности+становились прозрачными все компоненты на форме?

← →
Eraser © (2006-04-28 17:18) [1]

AlphaBlend + F1

← →
Mark86rus © (2006-04-29 21:44) [2]

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
TrackBar1.Max:=255; //-максимальное значение прозрачности
TrackBar1.Min:=0; //-минимальное значение прозрачности (но ноль не ставь потому, что при ноле форму невидно)
alphablendvalue:=TrackBar1.Position ;

end;

end.

← →
Лшдлуттнсфе (2006-04-29 21:48) [3]

> TrackBar1.Min:=0; //-минимальное значение прозрачности
> (но ноль не ставь потому, что при ноле форму невидно)

можно еще так:

TrackBar1.Min:=-1000; //-минимальное значение прозрачности
> (но лучше от -1000 до 0 не ставь потому, что при при минусе жопа будет, а при ноле форму невидно)

← →
Mark86rus © (2006-04-29 21:58) [4]

> Лшдлуттнсфе

я ему это и написал! вообще лучше TrackBar1.Min:=ставить болше 50, потому, что доведет бегунок до 0 и отпустит, а потом будет искать форму по экрану!

← →
ЛшдлуттнСфе (2006-04-29 22:08) [5]

> а потом будет искать форму по экрану!

не будет, потому как часть стандартных компонент прозрачности таким методом не изменит.

и тем более не будет, потому что alphablend по умолчанию false

> и тем более не будет

да ты прав! если конечно не указать истинное значение alphablend:=true;

прозрачная форма Найти похожие ветки