列表6.2.txt

来自「klinux书籍的配套光盘。可以学习学习。」· 文本 代码 · 共 22 行

【列表6.2】 来自SigNameMain.pa$.组合事件处理器。
procedure TSigNamesForm. SigValComboClick(Sender: TObject);
var
 SigVal : Integer;
begin
 SigVal := -1;
 NamePanel.Caption := ' ';
 if SigValCombo. ItemIndex >= 0
   then begin
            try
             SigVal  := SigValCombo. ItemIndex + 1;
            except
             on Exception do MessageDlg('Error', 'Invalid value',
                   mtError, [mbOK], 0);
            end; { try }
            if (SigVal >=0) and (SigVal < NSIG)
             then NamePanel.Caption := ' ' + strsignal(SigVal)
             else MessageDlg('Error', 'Signal value out of range', mtError,
                          [mbOK], 0);
          end;
end;