Einzelnen Beitrag anzeigen

Bryan

Registriert seit: 22. Mai 2017
7 Beiträge
 
#1

Timer während Laufzeit erstellen..

  Alt 22. Mai 2017, 14:14
Hey Leute,
ich möchte einen Timer während der Laufzeit erstellen und in diesem eine Prozedur aufrufen. Habe jetzt schon auf mehreren Foren gesucht, jedoch funktionieren die Ansätze nicht so wirklich. Vielleicht hab ich ja einen Fehler gemacht Danke im Vorraus!

Hier mein Quelltext:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
TimerEvent: TNotifyEvent;
public
{ public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }
procedure TimerEvent(Sender: TObject);
begin
Form1.Caption:='erfolgreich';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
MyTimer:TTimer;
begin
MyTimer:=TTimer.Create(Form1);
MyTimer.Interval:=100;
MyTimer.OnTimer:=TimerEvent;
MyTimer.Enabled:=True;
end;
  Mit Zitat antworten Zitat