1:
2:
3:
4:
5:
6:
7:
8:

// Beispiel
procedure TForm1.VersteckeGeklickt(Sender: TObject);
begin

 Knopf_Beenden.verstecke;
 Knopf_Berechnen.verstecke;

end;                    

1:

knopf.visible := not knopf.visible;                    

1:

Button1.Caption := 'Neuer Titel des Buttons';                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click1(Sender: TObject);
begin
  Button1.Caption := 'Verstecken';
  Button1.OnClick := Button1Click2;
end;

procedure TForm1.Button1Click2(Sender: TObject);
begin
  Button1.Caption := 'Ausklappen';
  Button1.OnClick := Button1Click1;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click1(Sender: TObject);
begin
  Button1.Caption := 'Verstecken';
  Button1.OnClick := Button1Click2;
end;

procedure TForm1.Button1Click2(Sender: TObject);
begin
  Button1.Caption := 'Ausklappen';
  Button1.OnClick := Button1Click1;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

unit mForm_fibfak;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, mEtikett, mTextfeld, mKnopf, mZeilenbereich,
  mZeichenbereich;

type
  TForm1 = class(TForm)
    Knopf_Fibonacci: TKnopf;
    Knopf_Fakultaet: TKnopf;
    Knopf_Loeschen: TKnopf;
    Knopf_Verstecken: TKnopf;
    Knopf_Beenden: TKnopf;
    Textfeld_Eingabe: TTextfeld;
    Etikett_Eingabefeld: TEtikett;
    Zeichenbereich_Boom: TZeichenbereich;
    Zeilenbereich_Bam: TZeilenbereich;
    procedure Knopf_Beendengegklickt(Sender: TObject);
    procedure Knopf_VersteckenGeklickt(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Knopf_Beendengegklickt(Sender: TObject);
begin
self.close;
end;

procedure TForm1.Knopf_VersteckenGeklickt(Sender: TObject);
begin

Etikett_Eingabefeld.visible := not Etikett_Eingabefeld.visible;
Knopf_Beenden.visible := not Knopf_Beenden.visible;
Knopf_Fakultaet.visible :=  not Knopf_Fakultaet.visible;
Knopf_Fibonacci.visible :=  not Knopf_Fibonacci.visible;
Knopf_Loeschen.visible :=  not Knopf_Loeschen.visible;
Textfeld_Eingabe.visible := not Textfeld_Eingabe.visible;
Zeilenbereich_Bam.visible  :=  not Zeilenbereich_Bam.visible;
Zeichenbereich_Boom.visible :=  not Zeichenbereich_Boom.visible;


end;

end.                    

1:

myButton.caption := 'myNewLabel';                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Knopf_VersteckenGeklickt(Sender: TObject);
begin
  // Objekte verschwinden lassen und wieder anzeigen
  Etikett_Eingabefeld.visible := not Etikett_Eingabefeld.visible;
  Knopf_Beenden.visible := not Knopf_Beenden.visible;
  Knopf_Fakultaet.visible :=  not Knopf_Fakultaet.visible;
  Knopf_Fibonacci.visible :=  not Knopf_Fibonacci.visible;
  Knopf_Loeschen.visible :=  not Knopf_Loeschen.visible;
  Textfeld_Eingabe.visible := not Textfeld_Eingabe.visible;
  Zeilenbereich_Bam.visible  :=  not Zeilenbereich_Bam.visible;
  Zeichenbereich_Boom.visible :=  not Zeichenbereich_Boom.visible;
  //hier Aufschrift ändern. Mit Bollean-Variable(was bei euch wahrscheinlich Wahrheitswert oder so heißt :hair:) merken, welche Caption gerade angezeigt wird
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.Button2Click(Sender: TObject);
begin
 if Button2.Caption ='Verschwinden' then
 begin
  Edit1.Visible:=False;
  Edit2.Visible:=False;
  Button1.Visible:=False;
  Button2.Caption:='Zeigen';
  exit;
 end;
 if Button2.Caption = 'Zeigen' then
 begin
  Edit1.Visible:=True;
  Edit2.Visible:=True;
  Button1.Visible:=True;
  Button2.Caption:='Verschwinden';
  exit;
 end;
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure TForm1.SetzeSichtbarkeit(aVis: Wahrheitswert);  //in Variationen ausgeführter Code in eine gesonderte Prozedur packen, spart Tipparbeit ;)
begin
  Edit1.Visible := aVis;
  Edit2.Visible := aVis;
  Button1.Visible := aVis;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  KomposSichtbar: WAHRHEITSWERT;
begin
  if Button2.Caption ='Verschwinden' then
  begin
    SetzeSichtbarkeit(FALSCH);
    Button2.Caption := 'Zeigen';
    //Exit;  //das besser garnicht erst benutzen ;)
  end else begin
    if Button2.Caption = 'Zeigen' then begin
      SetzeSichtbarkeit(WAHR);
      Button2.Caption := 'Verschwinden';
      //exit;  //dito; hier wäre es übrigens sowieso zu Ende, ist überflüssig
    end;
  end;
  //noch kürzer könntet ihr es haben mit
  KomposSichtbar := Button2.Caption = 'Zeigen';
  SetzeSichtbarkeit(KomposSichtbar);
  if KomposSichtbar then
    Button2.Caption = 'Verstecken'
  else Button2.Caption = 'Zeigen';
end;