delphi - fading tekst - Udvikleren.dk - Programmering, webdesign og grafik

Tags: delphi

Bruger #647 @ 12.02.03 13:53

Hi
Jeg er nybegynder til delphi, men elsker da at sidde og lege lidt med programmet. Har lavet hvad jeg kalder soul's Magic 8ball, jeg skriver f.eks "show me hotmail pass" i en edit1, og den kommer tilbage med svaret (hvis jeg self. har lavet "show me hotmail pass" til et spørgsmål på et svar=). Hvad jeg godt vil vide, var om det var muligt at få svaret til at fade lige så stille frem?

Kan da godt lige smide nogle point af til et svar jeg kan bruge.

1 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma

Sorter efter stemmer Sorter efter dato

Bruger #1425 @ 12.02.03 15:35

354

Hvis dit svar kommer på en label, kan du bruge denne kode til at fade label'en

Kode

Procedure FadeLabel(lbl: TLabel);
var
  b:byte;
begin
  for b := 255 downto 0 do
  begin
    lbl.Font.Color := RGB(b,b,b);
    sleep(1);
    Application.ProcessMessagea;
  end;
end;

Kald den f.eks. med FadeLabel(Label1);

Mvh,

Thomas Nielsen

fading tekst

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler