Quellcode zur Laufzeit ändern?

**Störtebeker**

Hi

ich habe in meinem Programm eine Bildschirmtastatur integriert. (Anhang s. Beitrag

Beitrag: Bildschirmtastatur)

Zu dieser Tastatur gehört auch ein NUM-Feld, dessen Zahlen am Anfang deaktiviert sind. Zum Aktivieren klicke ich auf NUM. Nun möchte ich die Zahlen auch wieder über diese Taste deaktivieren. Dazu müsste ich aber beim aktivieren der Zahlen den Code des Buttons ändern, damit diser dann den Code hat, die Tasten zu deaktivieren und wieder umgekehrt.

Das ist der Code, um das Zahlenfeld zu aktivieren:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button84Click(Sender: TObject);

begin

Panel16.Color:=clLime;

Button85.Enabled:=true;

Button86.Enabled:=true;

Button87.Enabled:=true;

Button88.Enabled:=true;

Button99.Enabled:=true;

Button96.Enabled:=true;

Button97.Enabled:=true;

Button98.Enabled:=true;

Button93.Enabled:=true;

Button94.Enabled:=true;

Button95.Enabled:=true;

Button90.Enabled:=true;

Button91.Enabled:=true;

Button92.Enabled:=true;

end;

Der Code müsste dann praktisch so aussehen:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button84Click(Sender: TObject);

begin

Panel16.Color:=clGreen;

Button85.Enabled:=false;

Button86.Enabled:=false;

Button87.Enabled:=false;

Button88.Enabled:=false;

Button99.Enabled:=false;

Button96.Enabled:=false;

Button97.Enabled:=false;

Button98.Enabled:=false;

Button93.Enabled:=false;

Button94.Enabled:=false;

Button95.Enabled:=false;

Button90.Enabled:=false;

Button91.Enabled:=false;

Button92.Enabled:=false;

end;

und dann natürlich wieder umgekehrt.

Wie muss ich das machen?

Quellcode zur Laufzeit ändern?

Quellcode zur Laufzeit ändern?

Forumregeln