![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Тупо берем форму, как сделать что бы перемещением движка изменялась прозрачность (0-255)? Спасибо
|
#2
|
||||
|
||||
![]() Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls; type TForm1 = class(TForm) TrackBar1: TTrackBar; procedure FormCreate(Sender: TObject); procedure TrackBar1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin AlphaBlend:=True; TrackBar1.Max:=255; TrackBar1.Position:=TrackBar1.Max; TrackBar1.OnChange:=TrackBar1Change; end; procedure TForm1.TrackBar1Change(Sender: TObject); begin AlphaBlendValue:=TrackBar1.Position; end; end. Пишу программы за еду. __________________ |
#3
|
|||
|
|||
![]() 1. Установить AlphaBlend формы в True;
2. Max значение TrackBar установить равное 255; 3. Затем в TrackBar1Change прописать код: Код:
procedure TForm1.TrackBar1Change(Sender: TObject); begin AlphaBlendValue:=255-TrackBar1.Position; end; |
#4
|
|||
|
|||
![]() Цитата:
Последний раз редактировалось STIFLER, 08.04.2011 в 09:23. |