TButton/de: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		Diese Seite erklärt, wie man die [[doc:lcl/stdctrls/tbutton.html\|TButton]] Komponente verwendet. Auf etwas klicken bedeutet immer ein Linksklick, ein Rechtsklick wird explizit erwähnt.
2	2
3	3		## Beschreibung
4	4
5	5		Ein Push-Button-Steuerelement (unüblich: Knopf oder Schaltfläche).
6	6
7		-	~~<figure>~~
8		-	~~<img src="TButtonStandardpalette.png" title="TButtonStandardpalette.png" />~~
9		-	~~<figcaption>TButtonStandardpalette.png</figcaption>~~
10		-	~~</figure>~~
	7	+	![](/wiki-images/4/49/TButtonStandardpalette.png)
11	8
12	9		## Verwendung
13	10
14	11		Ein [[doc:lcl/stdctrls/tbutton.html\|TButton]] ist eines der elementarsten Bedienelemente auf einem [[TForm/de\|Formular]]. Klickt man mit der Maustaste auf ihn (oder wechselt man z.B. mit der Taste \[Tab\] auf den Button und betätigt diesen mit Enter), wird im Regelfall eine Aktion ausgelöst. Dieses Klicken kann man vereinfacht als ein [Ereignis](http://de.wikipedia.org/wiki/Ereignis_%28Programmierung%29) (engl. Event) betrachten. Dafür benötigt man [[Event order/de\|Ereignisbehandlungsroutinen]] (engl. listener, observer, event handler), die nach dem Klick aufgerufen werden.\
15		-	\
	12	+
16	13		Ein Button können Sie Ihrem Formular hinzufügen, indem Sie einfach den TButton (viereckiger Button mit einem "OK" in der Mitte) auf der Standard Komponentenpalette auswählen (mit einem Klick) und mit einem Klick auf Ihr Formular platzieren.\
17		-	\
	14	+
18	15		Der Eventhandler für ein Mausklick kann recht einfach erreicht werden, indem man auf einen einfügten Button doppelklickt (oder im Objektinspektor das Ereigniss OnClick wählt). Der Eventhandler für einen Button1 auf einem Formular Form1 wird so aussehen:
19	16
20	17		``` pascal
21	18		procedure TForm1.Button1Click(Sender: TObject);
22	19		begin
23	20
24	21		end;
25	22		```
26	23
27	24		Zwischen den Anweisungen (Statements) begin und end könnten Sie Anweisungen schreiben, die immer ausgeführt werden, wenn auf den Button1 geklickt wird.
28	25
29	26		Fast alle verfügbaren Einsteigertutorials nutzen TButtons, um einen einfachen Einstieg in die [[Glossary/de\|objektorientierte Programmierung]] mit Lazarus zu ermöglichen. Folgende Tutorials sind für Einsteiger gut geeignet, die Verwendung von Buttons zu verstehen:
30	27
31	28		- [[Form Tutorial/de\|Einstieg, die erste GUI-Anwendung]] für absolute Neueinsteiger
32	29		- [[Lazarus Tutorial/de\|Ihr erstes Lazarus Programm]] Tutorial für Lazarus
33	30
34	31		#### Kleines Beispiel
35	32
36	33		- Erstellen Sie mit dem Hauptmenüeintrag "Projekt --\> Neues Projekt... --\> Anwendung" eine neue GUI-Anwendung.
37	34		- Legen Sie einen TButton auf Ihr Formular ab
38	35		- Doppelklicken Sie diesen Button1 auf Ihrem Formular (der Standard-Eventhandler: OnClick wird für Button1 erstellt, das Quelltexteditorfenster öffnet sich)
39	36		- fügen Sie folgenden Code in den Eventhandler:
40	37
41	38		``` pascal
42	39		procedure TForm1.Button1Click(Sender: TObject);
43	40		begin
44	41		ShowMessage('Lazarus fetzt!'); // Eine Mitteilung wird angezeigt mit dem Inhalt ...
45	42		end;
46	43		```
47	44
48		-	~~- Starten Sie Ihr Programm (mit Taste <span class="kbd">F9</span>)~~
	45	+	- Starten Sie Ihr Programm (mit Taste `F9`)
49	46
50	47		## Button dynamisch erzeugen
51	48
52	49		Manchmal ist es einfacher, die Buttons (oder auch andere Komponenten) nicht mit dem Lazarus-Formulardesigner zu erstellen, sondern diese dynamisch, erst zur Laufzeit, zu erzeugen. Vor allem wenn Sie sich ständig wiederholende Buttons auf einer Form haben ist dieses Vorgehen sinnvoll.
53	50
54	51		Wie dies funktioniert können Sie an folgendem Beispiel nachstellen (ein Schnellrechner):
55	52
56	53		- Erstellen Sie eine neue leere [[Form Tutorial/de\|GUI-Anwendung]] mit dem Formular Form1 und fügen der [[Uses/de\|Uses-Klausel]] noch StdCtrls (hier ist der TButton beheimatet) hinzu.
57	54		- Ändern Sie die Caption von Form1 zu QuickAdd
58	55		- Erstellen Sie den OnCreate-Eventhandler von Form1 (gehen Sie im Objektinspektor auf das Ereignis OnCreate und klicken den daneben befindlichen Button \[...\] an).
59	56		- Fügen Sie folgenden Text ein:
60	57
61	58		``` pascal
62	59		procedure TForm1.FormCreate(Sender: TObject);
63	60		var
64	61		i: Integer;
65	62		aButton: TButton;
66	63		begin
67	64		for i := 0 to 9 do begin // 10 Buttons erstellen
68	65		aButton := TButton.Create(Self); // Button erstellen, Owner wird Form1, wo der Button später wieder mit frei gegeben wird
69	66		aButton.Parent := Self; // festlegen, worauf er angezeigt werden soll
70	67		aButton.Width := aButton.Height; // Breite soll der Höhe des Buttons entsprechen
71	68		aButton.Left := i * aButton.Width; // Abstand von Links
72	69		aButton.Caption := IntToStr(i); // Bezeichnung des Buttons (0..9)
73	70		aButton.OnClick := @aButtonClick; // der Eventhandler für den Button -> wird gleich noch erstellt
74	71		end;
75	72		Self.Height := aButton.Height; // Höhe des Formulars soll der Höhe der Buttons entsprechen
76	73		Self.Width := aButton.Width * 10; // Breite des Formulars soll der Breite aller Buttons entsprechen
77	74		end;
78	75		```
79	76
80	77		- Jetzt muss noch der Eventhandler für die Button-Klicks erstellt werden.
81	78		- Gehen Sie im Quelltexteditor in Ihre Klasse TForm1 in den Abschnitt `private`.
82		-	- Fügen Sie `procedure aButtonClick(Sender: TObject);` und drücken Sie anschließend die Tasten <span class="kbd">Ctrl</span>+<span class="kbd">Shift</span>+<span class="kbd">C</span> (die Codevervollständigung wird aktiv und die Procedure `TForm1.aButtonClick(Sender: TObject);` wird erstellt.
	79	+	- Fügen Sie `procedure aButtonClick(Sender: TObject);` und drücken Sie anschließend die Tasten `Ctrl`+`Shift`+`C` (die Codevervollständigung wird aktiv und die Procedure `TForm1.aButtonClick(Sender: TObject);` wird erstellt.
83	80		- Fügen Sie folgenden Code ein:
84	81
85	82		``` pascal
86	83		procedure TForm1.aButtonClick(Sender: TObject);
87	84		const
88	85		Zaehler: Integer = 0;
89	86		var
90	87		i: Integer;
91	88		begin
92	89		if (Sender is TButton) // wurde der Eventhandler von einem Button aus aufgerufen?
93	90		and TryStrToInt(TButton(Sender).Caption, i) then // dann versuche die Bezeichnung in einen Integer umzuwandeln
94	91		begin
95	92		Zaehler := Zaehler + i; // der Additionszähler wird um die entrechende Zahl erhöht
96	93		Caption := 'QuickAdd: ' + IntToStr(Zaehler); // Schreibe das Ergebnis auf die Bezeichnung des Formulars
97	94		end;
98	95		end;
99	96		```
100	97
101	98		- Starten Sie ihre Anwendung
102	99
103	100		> Note: Sie können Ihren Buttons jeden erdenklichen Eventhandler zuweisen, solange dieser die Form `procedure <Klasse>.<Name der Procedure>(Sender: TObject);` hat. Somit können Sie auch einen von einer anderen Klasse nutzen!
104	101
105	102		## Siehe auch
106	103
107	104		- [[TBitBtn/de\|TBitBtn]]\
108	105		- [[TSpeedButton/de\|TSpeedButton]]
109	106
110	107		---
111	108		From the Free Pascal wiki, page "TButton/de", as it stood on 2023-05-10 after a change by Ernesto, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history