Quelltexte in Delphi-Tags setzen! Wie geht das? Quell-Text nach dem einfügen markieren und auf den kleinen Römerhelm klicken
Zur Frage...
Tippe folgendes ein:
das muss ziemlich oben in Deine Formular-Deklaration
Delphi-Quellcode:
private
{ Private-Deklarationen }
procedure THelloWorld.ResetUserInterface; // <-- Diese Zeile hier, rest ist schon da!
public
{ Public-Deklarationen }
end;
Das muss unter
vor der letzte Zeile mit dem "end." rein:
Delphi-Quellcode:
procedure THelloWorld.ResetUserInterface;
begin
// Hier Buttons wieder anzeigen und Farben setzen
end;
Jetzt kanns Du diese neue Funktion mit einem Button aufrufen, z.B.:
Delphi-Quellcode:
procedure THelloWorld.Button1Click(Sender: TObject);
begin
ResetUserInterface;
end;