OnTimer unter Laufzeit Problem...

[Surrounder]

Also ich verstehe das so, jedesmal wenn der Button gedrückt wird soll das ein neues Bild dazu kommen, und die sollen sich dann gleich schnell bewegen wie es das erste auch getan hat, richtig?

Also ich würde das jetzt mal so testen:

Delphi-Quellcode:

if not Assigned( NewTimer ) then begin
   // Timer erzeugen
end;
// Bild laden

wenn Du dann zum zweitenmal auf den Button drückst dann gibt es den Timer schon und er wird nicht noch einmal erzeugt, ich denke dass deshalb sich das zweite Bild schneller bewegt.

[mschaefer]

Moin, SPÄTMOIN

also irgenwie ist mir bie Timer.Create(nil) nicht wohl. Habe das mal in einer Komponente gehabt und die verursachte dann sporadische Fehler. Der Pointer auf das Formular ermöglicht der Timerkomponente das Formularhandle zu bekommen und meines erachtens wird das benötigt.

Grüße // Martin

[DXC]

Ok, erstmals nachdenken.... hmmm
Also es funzt schon allgemein ganz gut also Surrounder hats verstanden, nur wenn ich auf den button klick dann bewegt sich ein bild...wenn ich dann schnell das zweite mal darauf klick dann bleibt aber das erste stehen ... (Falls es jemand wissen will ich will so was wie InTheGroove, StepMania, DanceDance Revulution nachproggen ...

Hmmmm... )


@marti....

[tigerman33]

Wenn du das zweite Mal auf den Button klickst, wird auch ein neues Bild erzeugt--in der Variable des alten! Das alte liegt dann irgendwo als Speicherleiche herum und kann nicht mehr angesprochen werden.
Du musst also irgendwie mit einem Array/Liste von Images arbeiten.

Delphi-Quellcode:

procedure TForm1.DoTimer(Sender: TObject);
var i: integer;
begin
  for i := Low(ImageArray) to High(ImageArray) do
    with ImageArray[i] do
      Top := Top - 3;
end;

Aber wieso du den Timer nicht aufs Form packen kannst, check ich trotzdem nicht. Dann würden sich die meisten der Probleme nämlich in Wohlgefallen auflösen. U.a. dass sich die Bilder doppelt so schnell bewegen. Und die Images solltest du eigentlich auch mit Form1 als Owner erzeugen (TImage.Create(Form1)

[r2c2]

IMHO war dein Prob folgendes:
- du hast n zweiten Timer und n zweites Image erstellt und den Pointer nur umgestellt. Beide Timer wollen jetzt das Bild verschieben, auf das der Pointer NewImage zeigt. Und das is eben das neue...

Und bitte nicht vergessen alles wieder freizugeben... Also entweder Owner/Parent setzen oder manuell Free; benutzen...

Ansonsten nimm am besten, so, wie schon vorgeschlagen, n Array(oder ne List, was auch nix anderes, als n gekapselter array is).

mfg

Christian

[SirThornberry]

@mschaefer: TTimer.Create(nil) ist völlig ok. Der Owner sorgt nur dafür das der Timer automatisch freigegeben werden würde wenn auch der Owner freigegeben wird. Wenn bei dir ein Fehler kam als du einen Timer so erzeugt hast liegt das mit hoher wahrscheinlichkeit daran das du im Destroy deiner Komponente den Timer nicht freigegeben hast.

[mschaefer]

Moin, moin,

Ja nach etwas längerer Recherche kommt der Fehler wieder zu Tage: Eine zeitaufwendigere Eventroutine lief noch während ich den Timer freigegeben hatte. Das vermeidet man natürlich wenn das Form alles abbaout, dann laufen auch keine Events mehr.

Grüße // Martin

[DXC]

Hi,

ja des in den Arrays hab ich mir auch schon mal gedacht...nur ich wei net wie des geht hab zwar mal n bissl rumbrobiert aber...

Naja des mit dem FREE, etc.

MFG
0-Checker

p.s. Danke für alle eure netten antworten und ich mal nebenbei noch n bild eingefügt was ich so "nachproggen" will
// EDIT: Vielleicht sollten wir das über Chat beenden ...

[r2c2]

Was ist denn jetzt dein Problem? Was verstehst du nicht? Wenn du nicht verstehst, was es mit dem Free auf sich hat, guck in die Delphi-Hilfe zusätzlich würde ich dir auch noch mal die Grundlagen ans Herz legen.

mfg

Christian

[DXC]

Hab's etz mal so irgendwie mit den Array's probiert klappt aber a net :

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure DoTimer (Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  NewTimer: TTimer;
  NewImage: TImage;
  i: Integer = 0;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Assigned( NewTimer[i] ) then begin
    NewTimer[i] := TTimer.Create (Nil);
    NewTimer[i].Interval := 20;
    NewTimer[i].Enabled := True;
    NewTimer[i].OnTimer := DoTimer;
  end;
  begin
    NewImage := TImage.Create(Nil);
    with NewImage do
      begin
      Top := 144;
      Left := 8;
      Picture.LoadFromFile('xxx.bmp');
      Parent := Form1;
      Name := 'xxx';
      end;
  end;
end;


procedure TForm1.DoTimer(Sender: TObject);
begin
  NewImage.Top := NewImage.Top - 3;
  begin
  i := i + 1;
  end;
end;


end.

Delphi-Quellcode:

[Fehler] Unit1.pas(33): E2149 Klasse besitzt keine Standardeigenschaft
[Fehler] Unit1.pas(34): E2149 Klasse besitzt keine Standardeigenschaft
[Fehler] Unit1.pas(35): E2149 Klasse besitzt keine Standardeigenschaft
[Fehler] Unit1.pas(36): E2149 Klasse besitzt keine Standardeigenschaft
[Fehler] Unit1.pas(37): E2149 Klasse besitzt keine Standardeigenschaft
[Fehler] Unit1.pas(37): E2035 Nicht genügend wirkliche Parameter
[Fataler Fehler] Project1.dpr(5): F2063 Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

mfg
dxc