Lazarus/Technisches: Unterschied zwischen den Versionen

Aus ZUM-Unterrichten
Wechseln zu: Navigation, Suche
main>Peterdauscher
main>Peterdauscher
Zeile 2: Zeile 2:
  
 
== Ein erstes eigenes Programm ==
 
== Ein erstes eigenes Programm ==
 +
 +
Wir ziehen eine TButton-Komponente (ein Schaltknopf mit der Beschriftung <tt> OK </tt>) auf das Formular. Diese Komponente heißt dann automatisch <tt>Button1</tt>.
 +
Im Objektinspektor kann man die Beschriftung dieses Knopfes ändern. Man ändert den Inhalt im Feld <tt>Caption</tt> . Nach Beendigung durch die Eingabetaste ändert sich dann auch die Beschriftung des Buttons.
 +
Durch Druck der Taste <tt>F9</tt> wird das Programm in eine ausführbare Datei übersetzt und diese automatisch gestartet. Man sieht den Knopf auf der Oberfläche kann ihn mit der Maus drücken. Aber es tut sich noch nichts, wenn man auf den Knopf drückt. Man kann das Fenster wie jede normale Windows-Anwendung mit den Kreuzchen am oberen rechten Rand schließen.
 +
 +
Nun möchten wir natürlich auch, dass unser Programm etwas tut – zunächst etwas ganz einfaches: Die Beschriftung des Knopfes soll sich ändern, wenn man ihn anklickt.
 +
 +
Um dies zu programmieren, klickt man doppelt auf den Button. Lazarus fügt selbstständig einen Programmbereich (eine <tt>procedure</tt>) ein, in der das Verhalten beim Klicken des Buttons festgelegt wird. Wirklich hineinschreiben muss man nur die gelb unterlegte Zeile. Diese sorgt dafür, dass sich die Beschriftung ändert und nun lautet "<tt>Du hast mich gedrückt</tt>".
 +
 +
 +
{{kasten_blau|<source  line highlight="29" lang="pascal">
 +
unit Unit1;
 +
{$mode objfpc}{$H+}
 +
 +
interface
 +
 +
uses
 +
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls;
 +
 +
type
 +
  { TForm1 }
 +
 +
  TForm1 = class(TForm)
 +
    Button1: TButton;
 +
    procedure Button1Click(Sender: TObject);
 +
  private
 +
    { private declarations }
 +
  public
 +
    { public declarations }
 +
  end;
 +
 +
var
 +
  Form1: TForm1;
 +
 +
implementation
 +
{ TForm1 }
 +
 +
procedure TForm1.Button1Click(Sender: TObject);
 +
begin
 +
  Button1.Caption:='Du hast mich gedrückt.'; // Ändere Beschriftung
 +
end;
 +
 +
initialization
 +
  {$I unit1.lrs}
 +
 +
end.       
 +
</source>}}
 +
  
 
{{Kasten_blau|[http://wiki.zum.de/Benutzer:Peterdauscher/Lazarus-Buch Zur Hauptseite]
 
{{Kasten_blau|[http://wiki.zum.de/Benutzer:Peterdauscher/Lazarus-Buch Zur Hauptseite]
 
}}
 
}}

Version vom 30. Dezember 2012, 15:08 Uhr

Installation

Ein erstes eigenes Programm

Wir ziehen eine TButton-Komponente (ein Schaltknopf mit der Beschriftung OK ) auf das Formular. Diese Komponente heißt dann automatisch Button1. Im Objektinspektor kann man die Beschriftung dieses Knopfes ändern. Man ändert den Inhalt im Feld Caption . Nach Beendigung durch die Eingabetaste ändert sich dann auch die Beschriftung des Buttons. Durch Druck der Taste F9 wird das Programm in eine ausführbare Datei übersetzt und diese automatisch gestartet. Man sieht den Knopf auf der Oberfläche kann ihn mit der Maus drücken. Aber es tut sich noch nichts, wenn man auf den Knopf drückt. Man kann das Fenster wie jede normale Windows-Anwendung mit den Kreuzchen am oberen rechten Rand schließen.

Nun möchten wir natürlich auch, dass unser Programm etwas tut – zunächst etwas ganz einfaches: Die Beschriftung des Knopfes soll sich ändern, wenn man ihn anklickt.

Um dies zu programmieren, klickt man doppelt auf den Button. Lazarus fügt selbstständig einen Programmbereich (eine procedure) ein, in der das Verhalten beim Klicken des Buttons festgelegt wird. Wirklich hineinschreiben muss man nur die gelb unterlegte Zeile. Diese sorgt dafür, dass sich die Beschriftung ändert und nun lautet "Du hast mich gedrückt".


Vorlage:Kasten blau


Vorlage:Kasten blau