Neuling hat Fragen :: WDSibyl :: Visual Development Environment
Benutzer registrieren

Neuling hat Fragen  Unten

  • Hallo!
    Ich begann eigentlich schon 2012 damit, mich mit WDSibyl zu beschäftigen. Leider stellte ich das bald auch wg. Zeitmangel wieder ein. Nun bin ich aber wieder dabei und habe auch gleich Fragen. Ich hoffe ihr könnt einem Anfänger sein seichtes Niveau entschuldigen.

    Ich begann mit einem kleinen Tutorial von hier:
    Nun, den Anfang im Textmode (ein BubbleSort-Algorhytmus) habe ich nicht hin bekommen (ich habe keinen Schimmer wie ich die IDE auf Textmodus-Programme umschalte), aber bei der Kurzeinführung von Lazarus kam ich weiter. Daß ich in die unit unter 'uses' 'SysUtils' eintragen muss um die Funktion 'IntToStr(Label1.Top)' nutzen zu können, fand ich nach einiger Zeit selbst heraus. Allerdings weiß ich nicht, wie ich einen Timer dazu bewegen kann zu laufen. Im Form1 ist ein Timer (Timer1), ein Label (Label1) und ein Button (Button1) angelegt, und mein Code sieht folgender maßen aus:

    Code

    Unit Unit3;



    Interface



    Uses

    Classes, Forms, Graphics, Buttons, StdCtrls, Dialogs, SYSUTILS;



    Type

    TForm1 = Class (TForm)

    Button1: TButton;

    Label1: TLabel;

    Timer1: TTimer;

    Procedure Timer1OnTimer (Sender: TObject);

    Procedure Button1OnClick (Sender: TObject);

    Private

    {Private Deklarationen hier einfuegen}

    Public

    {Oeffentliche Deklarationen hier einfuegen}

    End;



    Var

    Form1: TForm1;



    Implementation



    Procedure TForm1.Timer1OnTimer (Sender: TObject);

    Begin

    Label1.Top := Label1.Top + 1;

    Label1.Caption := IntToStr(Label1.Top);

    End;



    Procedure TForm1.Button1OnClick (Sender: TObject);

    Begin

    Label1.Top := Label1.Top - 10;

    Label1.Caption := IntToStr(Label1.Top);

    End;



    Initialization

    RegisterClasses ([TForm1, TButton, TLabel, TTimer]);

    End.

    nur ändert sich die Position und die Bezeichnung von Label1 ausschließlich auf Knopfdruck.
    Eigentlich müsste das gute Stück doch wieder von allein nach unten wandern und dabei seine Beschriftung ändern, oder sehe ich da was falsch?

    Der Object Inspector sagt mir zum Timer1:
    Interval: 100
    SaveLoadInfo: False
    Tag: 0
    Was habe ich übersehen?



    Bearbeitet von ajunra am 07. Sep 2015 - 11:56.

    Ein Rechner ohne Windows ist wie eine Erdbeertorte ohne Senf.
  • Hallo!

    Du musst noch den Timer1 starten. Dies machst Du mit

    Code

    timer1.Start;


    Um ihn wieder zu stoppen

    Code

    timer1.Stop;


    lg
    Wolfgang
  • Hallo Wolfgang,
    danke für die prompte Antwort. Jetzt muss ich ja nur noch rausfinden, wo ich das einbauen muss... Eben ein Anfänger. Aber Deine Antwort spornt auch ein wenig an!

    Schöne Grüße von Deutschlands größter Insel
    ajunra

    Ein Rechner ohne Windows ist wie eine Erdbeertorte ohne Senf.
  • Hallo!

    Entweder gleich beim Öffnen der Form oder mittels eines Buttons.

    Den Timer solltest auf jeden Fall beim Schliessen der Form stoppen.

    So im Prinzip wie im Kindergarten:
    schön brav alles wieder wegräumen was man heruasgenommen hat ;-)

    lg
    Wolfgang
  • 0 Benutzer

Diese Angaben basieren auf den Useraktivitäten der letzten 30 Minuten.