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:
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:
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?