Как понять
Цитата:
|
...с цифрой и буквой сверху...
|
что это значит, обрисуйте пжлст.
З.Ы. Тогда по незнанке такой вариант
Код:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
s: string;
begin
// Допустим, надпись на кнопке такая '8H'
s:=(Sender as TBitBtn).Caption;
if CheckBox1.Checked then Edit1.Text:=s[1] else Edit1.Text:=s[2];
end;
Нужно только задать этот обработчик всем кнопкам сразу