Delphi Animiertes randomize

Thema durchsuchen

Ansicht

Themen-Optionen

Animiertes randomize

Ein Thema von Privateer3000 · begonnen am 18. Jun 2002 · letzter Beitrag vom 19. Jun 2002

Antwort

MrSpock

(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge

Delphi 2010 Professional

19. Jun 2002, 08:22

Hallo Privateer3000,

wenn du die Cards Kompo, die jbg vorschlägt, installiert hast. Ziehe eine Karte auf deine Form und setze ShowCard auf True. Füge eine Timer Kompo hinzu und setze Enabled auf False und Interval auf 100. Dann füge den folgenden Code dem OnTimer Ereignis zu:

[code:1:2cb5f3cf4d]procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Tag := Timer1.Tag +1;
if Timer1.Tag = 30 then
begin

Albert
Live long and prosper