[Mystical]

Помогите кто чем может((Или объясните. Лабу дали вперед лекций и практик. Дали сегодня задание на контроль.Завтра уже надо принести.

На форме располагаются: шесть разных кнопок BitBtn с цифрой и буквой сверху, радио-кнопка для задания режима работы, кнопка Close и редактор Edit. Нажатие каждой кноп-ки приводит к отображению в окне редактора цифры или буквы на кнопке. Режим ото-бражения «цифра/буква» задается радиокнопкой. Кнопка Close заканчивает программу.

[Alegun]

Как понять

...с цифрой и буквой сверху...

что это значит, обрисуйте пжлст.

З.Ы. Тогда по незнанке такой вариант

Код:

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;

Нужно только задать этот обработчик всем кнопкам сразу

[Mystical]

Сообщение от Alegun

Как понять
что это значит, обрисуйте пжлст.

Вот именно , что задание корявое, не пойму.Может сама кнопка с именем 1/А допустим.....

[Yurk@]

ну если ты не понимаешь задания ... как мы его можем понять?

[Mystical]

Вот я и прошу помощи.

[Alegun]

Сообщение от Mystical

...Может сама кнопка с именем 1/А допустим.....

тогда концепция слегка меняется

Код:

...
if CheckBox1.Checked then Edit1.Text:= s[1] else Edit1.Text:= s[3];
...

[Mystical]

А s[1] и s[3] за что присвоили?

[Alegun]

см второй пост

[Snake22]

может в bitbtn.Glyph надо загружать картинку-цифру а в кепшн прописать название этой цифры,и установить layot->blGlyphTop.
тогда будет цифра и буква сверху))
не зря же написано не просто button а bitbtn?

[Snake22]

хотя можно и просто у кнопок установить свойство wordwrap=true и потом при запуске проги прописать

Код:

BitBtn1.Caption:='1'#13'А'
BitBtn2.Caption:='2'#13'Б'
и тд..

ну а дальше код из второго поста