(Co-Admin)
Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
Turbo Delphi für Win32
|
Re: onTimer Problem
10. Mär 2004, 17:32
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure myTimerTimer(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
myTimer : TTimer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
myTimer := TTimer.Create(self);
myTimer.OnTimer := myTimerTimer;
end;
procedure TForm1.myTimerTimer(Sender: TObject);
begin
//Code
end;
end.
Nachtrag: Herzlich willkommen in der DP!
|
|
Zitat
|