Delphi Hoofdstuk 5. Een figuur laten bewegen.

Zet bovenaan in het formulier een label en noem die lblBeweeg
Onderaan zet je een button met het opschrift "stop", noem die cmdStop.

Het formulier zelf noemen we frmBeweeg. Dat doe je door in het properties-venster van het formulier (klik eerst op een leeg gedeelte van het formulier, en ga dan naar het properties-venster) op name te klikken, en daar als naam frmBeweeg in te voeren.
Voor bij CaptionBeweging in, dat verschijnt dan in de titelbalk. En je kunt ook een achtergrondkleurtje voor het formulier uitkiezen door op Color te klikken.

Klik dan in de toolbox op de wekker (dat is de zogenaamde "timer", zie hier linksonder) TTimer, en zet die ergens op het formulier.

Die wekker zie je wel in het ontwerpscherm, maar niet als het programma echt loopt.

Zet in het propertiesvenster van de timer Interval op 10.
Daarmee stel je in dat er om de 10 milliseconden iets gebeurt, en wat dan wel, dat zie je hierna.
En "Enabled" zet je op true, want als die op false staat dan is de timer niet geactiveerd, en dan gebeurt er niets.

Dubbelklik in het ontwerpformulier op de timer, dan kun je programmaregels invoeren. En wat daar staat, dat wordt om de 10 milliseconden uitgevoerd. Telkens als er weer 10 millisec. om zijn dan "loopt de wekker af", en dan gaat de computer uitvoeren wat hier in de procedure onder timer staat.

Tik eerst maar eens het volgende in: lblBeweeg.left := lblBeweeg.left + 100;

Als je in de procedure onder timer het volgende intikt:
lblBeweeg.left := lblBeweeg.left + 10;
lblBeweeg.top := lblBeweeg.top + 5;
dan verschuift de label scheef naar beneden: hij gaat naar rechts en tegelijk naar beneden,want met lblBeweeg.top wordt vastgelegd hoeveel pixels de boven-rand van de label van de bovenrand van het formulier verwijderd is.

Daarom wordt de procedure die hoort bij de timer als volgt :


De variabele rechts moet je wel declareren, en die moet ook bewaard blijven buiten de procedure van de timer, daarom moet je die variabele declareren als globale variabele
En daar tik je in, onder var frmBeweeg: TfrmBeweeg; :


Verder moet die variabele ook een beginwaarde hebben.
Daarom tik je bij de procedure TfrmBeweeg.FormCreate(Sender: TObject); in:


Probeer het maar eens uit!

Dubbelklik op die button, en tik als programmaregel in:


Laat het programma lopen en probeer alles uit.

unit Unit1;

interface

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

type
  TfrmBeweeg = class(TForm)
    cmdStop: TButton;
    Timer1: TTimer;
    lblBeweeg: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdStopClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBeweeg: TfrmBeweeg;
  rechts: Boolean;

implementation

{$R *.dfm}

procedure TfrmBeweeg.cmdStopClick(Sender: TObject);
begin
timer1.enabled := false;
end;

procedure TfrmBeweeg.FormCreate(Sender: TObject);
begin
rechts := True;
end;

procedure TfrmBeweeg.Timer1Timer(Sender: TObject);
begin
If ((lblBeweeg.Left + lblBeweeg.Width > frmBeweeg.Width - 4) And 
   (rechts = True)) Then rechts := False;

If (lblBeweeg.Left < 0) And (rechts = False) Then rechts := True;

If (rechts = True) Then lblBeweeg.Left := lblBeweeg.Left + 10
else  lblBeweeg.Left := lblBeweeg.Left - 10;

end;

end.

Plaats een label op het formulier en noem die lblDatum

Plaats dan een timer op het formulier en noem die tmrTijd
Zet in het propertiesvenster van de timer Interval op 5000.
Daarmee stel je in dat er na 5000 milliseconden (dus 5 sec) iets gebeurt.
En "Enabled" zet je op true, want als die op false staat dan gebeurt er niets.

Dubbelklik op een leeg gedeelte van het formulier. Dan kun je de procedure TForm1.FormCreate(Sender: TObject); invoeren.

Tik het volgende in, tussen begin en end:


Dat heeft tot gevolg dat bij de start de datum op het label staat.

Dubbelklik daarna op de timer met de naam tmrTijd, dan kun je de eventhandler (dat is de programma-code) voor die timer invoeren.

Tik het volgende in, tussen begin en end:


Dat heeft tot gevolg dat 5 seconden na de start de tijd op het label staat, want je had in het propertiesvenster van de timer Interval op 5000 gezet.
En vervolgens verschijnt na elke seconde de nieuwe tijd op het label. Want de opdracht tmrTijd.Interval := 1000; heeft tot gevolg dat na een seconde de eventhandler van de timer weer wordt uitgevoerd. Zo wordt de tijd steeds bijgewerkt, en heb je een lopende klok gemaakt.