PHP Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, JvExExtCtrls, JvExtComponent, JvItemsPanel,
JvExControls, JvgDigits;
type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
Timer2: TTimer;
Speed: TJvgDigits;
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure Timer1Timer(Sender: TObject);
procedure FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Timer2Timer(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
i: integer;
implementation
{$R *.dfm}
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
Timer1.Enabled:= true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer2.Enabled:= false;
i:= i+1;
Speed.Value:= i;
end;
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Timer1.Enabled:= false;
Timer2.Enabled:= true;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if (i >= 0) then
begin
Speed.Value:= i;
i:= i-1;
end
else
Timer2.Enabled:= false;
end;
end.
is it poss?
__________________