Neuling hat Fragen
-
- Registriert: 04. Okt 2009
- Letzter Besuch: 08. Sep 2015
- Beiträge: 4
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. -
- Registriert: 04. Dez 2006
- Letzter Besuch: 09. Sep 2015
- Beiträge: 96
Hallo!
Du musst noch den Timer1 starten. Dies machst Du mit
Code
timer1.Start;
Um ihn wieder zu stoppen
Code
timer1.Stop;
lg
Wolfgang -
- Registriert: 04. Okt 2009
- Letzter Besuch: 08. Sep 2015
- Beiträge: 4
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. -
- Registriert: 04. Dez 2006
- Letzter Besuch: 09. Sep 2015
- Beiträge: 96
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
- Moderiert von:
- Admins-Forum
Benutzer online
- 0 Benutzer
Diese Angaben basieren auf den Useraktivitäten der letzten 30 Minuten.