![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Помогите кто чем может((Или объясните. Лабу дали вперед лекций и практик. Дали сегодня задание на контроль.Завтра уже надо принести.
На форме располагаются: шесть разных кнопок BitBtn с цифрой и буквой сверху, радио-кнопка для задания режима работы, кнопка Close и редактор Edit. Нажатие каждой кноп-ки приводит к отображению в окне редактора цифры или буквы на кнопке. Режим ото-бражения «цифра/буква» задается радиокнопкой. Кнопка Close заканчивает программу. |
#2
|
||||
|
||||
![]() Как понять
Цитата:
З.Ы. Тогда по незнанке такой вариант Код:
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; Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 07.05.2013 в 21:25. |
#3
|
|||
|
|||
![]() Цитата:
|
#4
|
||||
|
||||
![]() ну если ты не понимаешь задания ... как мы его можем понять?
Поживу - увижу, Доживу - узнаю, Выживу - учту. ![]() [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#5
|
|||
|
|||
![]() Вот я и прошу помощи.
|
#6
|
||||
|
||||
![]() Цитата:
Код:
... if CheckBox1.Checked then Edit1.Text:= s[1] else Edit1.Text:= s[3]; ... Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#7
|
|||
|
|||
![]() А s[1] и s[3] за что присвоили?
|
#8
|
||||
|
||||
![]() см второй пост
![]() Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#9
|
|||
|
|||
![]() может в bitbtn.Glyph надо загружать картинку-цифру а в кепшн прописать название этой цифры,и установить layot->blGlyphTop.
тогда будет цифра и буква сверху)) не зря же написано не просто button а bitbtn? Последний раз редактировалось Snake22, 07.05.2013 в 21:37. |
#10
|
|||
|
|||
![]() хотя можно и просто у кнопок установить свойство wordwrap=true и потом при запуске проги прописать
Код:
BitBtn1.Caption:='1'#13'А' BitBtn2.Caption:='2'#13'Б' и тд.. |
#11
|
||||
|
||||
![]() Snake22, ну внятного задания нам так и не дали)
Alegun, забегая на перед, а если будет несколько букв и\или двухзначное число? немного доработав вариант Alegun Код:
procedure TForm1.BitBtn1Click(Sender: TObject); var s : string; p : integer; begin s:=(Sender as TBitBtn).Caption; p := Pos('/', s); if RadioGroup1.ItemIndex = 0 then Edit1.Text := Copy(s, 1, p-1) else Edit1.Text := Copy(s, p+1, Length(s)-p); end; Поживу - увижу, Доживу - узнаю, Выживу - учту. ![]() [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#12
|
||||
|
||||
![]() Цитата:
З.Ы. Вот это Код:
Copy(s, p+1, Length(s)-p); Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 07.05.2013 в 21:57. |
#13
|
||||
|
||||
![]() Цитата:
![]() Поживу - увижу, Доживу - узнаю, Выживу - учту. ![]() [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#14
|
|||
|
|||
![]() Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls; type TForm1 = class(TForm) BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; BitBtn5: TBitBtn; RadioGroup1: TRadioGroup; Button1: TButton; Edit1: TEdit; BitBtn6: TBitBtn; procedure Button1Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure BTClick(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); procedure BitBtn5Click(Sender: TObject); procedure BitBtn6Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; s: string; p:integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin close; end; procedure TForm1.BTClick(Sender: TObject); begin s:=(Sender as TBitBtn).Caption; if RadioGroup1.ItemIndex = 0 then Edit1.Text := s[1] else Edit1.Text := s[2]; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin BTClick(Sender); end; procedure TForm1.BitBtn2Click(Sender: TObject); begin BTClick(Sender); end; procedure TForm1.BitBtn3Click(Sender: TObject); begin BTClick(Sender); end; procedure TForm1.BitBtn4Click(Sender: TObject); begin BTClick(Sender); end; procedure TForm1.BitBtn5Click(Sender: TObject); begin BTClick(Sender); end; procedure TForm1.BitBtn6Click(Sender: TObject); begin BTClick(Sender); end; end. |
#15
|
||||
|
||||
![]() Зачем-же вы наплодили столько обработчиков событий, они же у вас одинаковые? Просто всем кнопкам задайте один и все.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |