Delphi-Quellcode:
type
TForm1 = class(TForm)
private
bNumPressed: boolean;
end;
bNumPressed noch im FormCreate oder sonstwo initialisieren
Delphi-Quellcode:
procedure TForm1.Button84Click(Sender: TObject);
begin
bNumPressed := not bNumPressed;
Button85.Enabled := bNumPressed;
[...]
Button92.Enabled := bNumPressed;
if bNumPressed then Panel1.Color := clLime
else Panel1.Color := clGreen;
end;