Сообщество Чайников

Вопрос

Как в Дельфи сделать так, чтобы текст, например, в Label, появлялся, растворяясь, и через некоторое время исчезал, растворяясь.

Ответ

Интересная идея! Наверное, это можно сделать, используя палитры, но такое «лобовое» решение тоже работает:

procedure TForm1.Timer1Timer(Sender: TObject);
var
c: TColor;
r, g, b: byte;
begin
c:=ColorToRGB(Label1.Font.Color);
if c=RGB(0,0,0) then
Timer1.Enabled:=false;
r:=GetRValue©;
g:=GetGValue©;
b:=GetBValue©;
r:=r-byte(r>0);
g:=g-byte(g>0);
b:=b-byte(b>0);
Label1.Font.Color:=RGB(r,g,b);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Font.Color:=Label1.Color;
end;