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:

procedure TForm1.FormCreate(Sender: TObject);
begin
  DeleteFile('Anzahl.xml');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  XMLParser: TXMLParser;
  XMLAttribut: TXMLAttribute;
  WieOftGeklickt: Integer;
begin
  WieOftGeklickt := 0;
  try
    XMLParser := TXMLParser.Create('Anzahl.xml');
    try
      XMLAttribut := XML.Parser.GetAttributeByXPath('/settings/@count');
      try
        WieOftGeklickt := StrToIntDef(XMLAttribut.Value);
      finally
        XMLAttribut.Free;
      end;
    finally
      XMLParser.Free;
    end;
  except
  end;

  case WieOftGeklickt of
    0: // ...
    1: // ...
    else ShowMessage('Zu oft geklickt!');
  end;

  Inc(WieOftGeklickt);

  try
    XMLParser := TXMLParser.Create('Anzahl.xml');
    try
      XMLAttribut := XML.Parser.GetAttributeByXPath('/settings/@count');
      try
        XMLAttribut.Value := WieOftGeklickt;
      finally
        XMLAttribut.Free;
      end;
      XMLParser.Save;
    finally
      XMLParser.Free;
    end;
  except
  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:
31:
32:
33:
34:

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure klick1(Sender: TObject);
    procedure klick2(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.klick1(Sender: TObject);
begin
  ShowMessage('Eins');
  button1.OnClick := klick2;
end;

procedure TForm1.klick2(Sender: TObject);
begin
  ShowMessage('Zwei');
end;					

1:
2:

 with (Sender as TButton) do
            Tag := Tag + 1;					

1:
2:

  if Sender is TButton then
    TButton(Sender).Tag := TButton(Sender).Tag + 1;					

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:

procedure TForm1.Button1Click(Sender: TObject);
begin
      if Button2.Tag < 2 then
         MessageDlg('Du hast die Infos noch nicht gelesen. Bitte klicke Button2', mtInformation, [mbOK], 0)
     else
         MessageDlg('Alle Infos gelesen', mtInformation, [mbOK], 0)

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
     case Button2.Tag  of
          0: begin
               MessageDlg('Das war der erste Klick',mtInformation, [mbOK], 0);
               Button2.Tag := 1;
             end;
          1: begin
               MessageDlg('Das war der zweite Klick',mtInformation, [mbOK], 0);
               Button2.Tag := 2;
             end;
          2: begin
               MessageDlg('Nun gibt es keinen mehr',mtInformation, [mbOK], 0);
               Button2.Enabled := false;
             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:

procedure TForm1.Button3Click(Sender: TObject);
var i: integer;
begin
     if not passwd or (passwdindex < 3) then  {if (Button3.Tag = 0) or (i < 3) then}
     begin
         if edit1.Text = '' then exit
         else
         if passwdmd5(Edit1.Text) then
            passwd := true                    {Button3.Tag := 1}
         else
         begin
                                              {if i > 3 then Button3.Tag := 3} 
                                              {inc(i)}
            inc(passwdindex);
            MessageDlg('Falsche Passworteingabe', mtInformation, [mbOK], 0);
         end
     end
     else
     if  passwdindex > 3 then                 {if Button3.Tag > 1 then}
     begin
         MessageDlg('3 falsche Eingaben. Der Login wird gesperrt!'+#10#13+' Melde dich beim Superadmin', mtInformation, [mbOK], 0);
         Button3.Enabled := False;
     end;

end;					

1:

DurchGang1GleichTrue:boolean;					

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

if DurchGang1GleichTrue then
    begin
    Hier macht er das eine
    end
else
    begin
    Und hier mach er dann das andere
    end;
//Und hier dann fürs nächste mal den anderen auswählen:
DurchGang1GleichTrue :=not(DurchGang1GleichTrue );					

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:

// Abfrage 1; prüfen ob Pfad eingegeben oder vergessen wurde

     begin

          if  (koned1='') or (koned2='') then                     

                  MessageDlg('Bitte Eingaben überprüfen',mtWarning,[mbRetry],0)
          else
             begin
                  SysUtils.ForceDirectories(koned1);
                  SysUtils.ForceDirectories(koned2);
                  HinweisJ;
             end;
     end;

// Abfrage 2; prüfen,ob Verzeichnisse erstellt wurden
 
     begin

          if not SysUtils.DirectoryExists(Dir2) then    
             begin
                  HinweisN;
             end;
       end;


//Abfrage 3; wird das Formular zum erstellen der Verzeichnisse noch einmal aufgerufen (weshalb auch immer),
//           wird geprüft,ob Verzeichnisse Vorhanden sind,wenn ja Abfrage 1 und 2 überspringen

     begin

          if SysUtils.DirectoryExists(Dir2) then         
             begin
                  HinweisV;
             
             end;
          end;

      end;					

1:
2:
3:
4:

begin                                      //und diese Abfrage soll erst beim zweiten Klick auf den Button ausgeführt werden                    
  if SysUtils.DirectoryExists(Dir2) then
    HinweisV
end;					

1:
2:

if SysUtils.DirectoryExists(Dir2) then
    HinweisV;					

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

procedure TForm1.btn1Click(Sender: TObject);
begin
  btn1.Tag := btn1.tag + 1;

  if btn1.Tag <= 1 then
  begin
    // hier das 1x Klick
    ShowMessage('1');
  end else
  begin
    // hier das 2x (und noch viel mehr) Klick
    ShowMessage('2');
  end;

end;