Цитата:
|
Сообщение от Михалыч
1. Установить AlphaBlend формы в True;
2. Max значение TrackBar установить равное 255;
3. Затем в TrackBar1Change прописать код:
Код:
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
AlphaBlendValue:=255-TrackBar1.Position;
end; |
Спасибо за код, но че то не то, когда движок перемещаешь в крайнее положение прозрачность долеко не на 0, она еле заметна.