[STIFLER]

Сообщение от Михалыч

1. Установить AlphaBlend формы в True;
2. Max значение TrackBar установить равное 255;
3. Затем в TrackBar1Change прописать код:

Код:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
AlphaBlendValue:=255-TrackBar1.Position;
end;

Спасибо за код, но че то не то, когда движок перемещаешь в крайнее положение прозрачность долеко не на 0, она еле заметна.