[segas]

Помогите пожалуйсто=)
надо чтоб при выключении программы, програамма гасла постепенно, погаснув полностью прога закрылась.
заранее спасибо.

[M.A.D.M.A.N.]

Код:

1 2 3 4 5 6

procedure onclosequery(sender:tobject;canclose:boolean); begin   self.alphablend:=true;   while self.alphablendvalue>0 do     self.alphablendvalue:=self.alphablendvalue-5; end;

[Drozh]

Можно таким образом:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

<b>procedure</b> TForm1.FormClose(Sender: TObject; <b>var</b> Action: TCloseAction); <b>var</b>  Step, Value: Integer; <b>begin</b>  Step := 3;  Value := 255;    <b>while</b> Value >= 0 <b>do</b>  <b>begin</b>   AlphaBlendValue := Value;   Application.ProcessMessages;   Dec(Value, Step);  <b>end; end;</b>   <b>procedure</b> TForm1.FormCreate(Sender: TObject); <b>begin</b>  AlphaBlend := True; <b>end</b>;

[segas]

Возник вопросик: что такое self в первом варианте?

[Karsh]

Self это ссылка на объект с которым ты работаешь.
В данном случае self это форма (TForm1), т.е. Self.Alphablend = Form1.Alphablend

[segas]

Сообщение от Karsh

Self это ссылка на объект с которым ты работаешь.
В данном случае self это форма (TForm1), т.е. Self.Alphablend = Form1.Alphablend

благодарю, буду знать