Moin,
Also ich denke nicht das er nach weiteren Lösungsansätzen gefragt hat sondern vielmehr um eine Lösung des Problems gebeten hat.
Hier die
LÖSUNG:
Zitat:
procedure TForm1.Drueken;
und unten
Zitat:
procedure TForm1.Drueken;// Eigene procedure, es soll gezählt werden
wenn man das mal vergleicht mit
Zitat:
procedure Button9Click(Sender: TObject);
und
Zitat:
procedure TForm1.Button9Click(Sender: TObject);
Fällt jeden doch wohl schnell ein unterschied auf.
Wenn der Inhalt der Procedure unten definiert wird muss TForm1 angegeben werden da es sich bei der Procedure um eine Procedure dieser TForm handelt.
Denn es könnte ja auch mehrere TForms geben.
Oben jedoch ist das TForm1. völlig sinnlos da sie natürlich zu dieser gehört sonst stände sie ja nicht bei den Procedures der TForm!
RICHTIG IST :
Oben muss es :
Delphi-Quellcode:
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Drueken;
private
{ Private declarations }
public
{ Public declarations }
end;
heißen und unten muss alles so bleiben.
Wie das keinem auffalen konnte 