[segas]

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

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

Код:

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

[Drozh]

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

Код:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
 Step, Value: Integer;
begin
 Step := 3;
 Value := 255;

 while Value >= 0 do
 begin
  AlphaBlendValue := Value;
  Application.ProcessMessages;
  Dec(Value, Step);
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 AlphaBlend := True;
end;

[segas]

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

[Karsh]

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

[segas]

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

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

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