Компоненты Лектор Махметова А М Вопросы 1

Компоненты Лектор Махметова А. М.

Вопросы: 1. Memo 2. Check. Box 3. Radio. Button

Компонент Memo Класс TMemo Компонент Memo – многострочное окно редактирования для ввода, отображения и редактирования многострочных текстов. Если вы сохраните в файле текст, введенный или отредактированный в компоненте, то будет создан текстовый файл, содержащий только символы и несодержащий элементы форматирования

Свойства Memo Alignment - выравнивание текста: ta. Left. Justify, ta. Right. Justify, ta. Center; Caret. Pos – указывает строку и символ расположения курсора; Lines – строки текста, объекты типа String; Scroll. Bars – управляет появлением полосы прокрутки в окне: ss. None – отсутствует; ss. Horizontal – горизонтальная полоса; ss. Vertical – вертикальная поласа; ss. Both – обе;

Свойства Memo Want. Returns – указывает можно ли вставить в текст символы возврата каретки; Want. Tabs - указывает можно ли вставить в текст символы табуляции; Word. Wrap – указывает, переносится ли текст на новую строку;

Методы Memo Clear - void Clear(void) удаляет текст из окна; Clear. Selection - void Clear. Selection(void) удаляет текст, выделенный в окна; Clear. Undo – void Clear. Undo(void) очищает буфер отмены команд редактирования; Copy. To. Clipboard – void Copy. To. Clipboard(void) копирует выделенный текст в компоненте редактирования в Clipboard в формате CF_TEXT;

Методы Memo Cat. To. Clipboard – void Cat. To. Clipboard(void) переносит выделенный текст в Clipboard в формате CF_TEXT и удаляет; Paste. Form. Clipboard – void Paste. Form. Clipboard(void) переносит в окно текст из буфера Clipboard; Perform – int Perform(unsigned Msg, int WParam, int LParam) передает окну собщение Windows Msg с параметрами WParam и LParam;

Методы Memo Select. All – void Select. All(void) выделяет весь текст в окне; Undo - void Undo (void) отменяет все изменения.

События Memo On. Change – наступает когда текст в окне изменился; On. Key. Down – наступает при нажатии пользователем любой клавиши. В обработчике можно распознать нажатую клавишу;

События Memo On. Key. Press - наступает при нажатии пользователем клавиши символа. В обработчике можно распознать нажатую клавишу; On. Key. Up – наступает при отпускании пользователем любой клавиши;

Операции редактирования Если в приложении созданы объекты стандартных действии редактирования, то можно вызвать их методы Execute. Target. Пример: Edit. Copy->Execute. Target(Memo 1); Если объекты стандартных действии отсутствуют, то те же операции можно осуществить, передавая окну сообщения Windows. Пример: Memo 1 ->Perform(WM_COPY, 0, 0);

Компонент Check. Box Класс TCheck. Box Компонент Check. Box – индикатор с флажком, используемый для включения и выключения каких-то опций или для индикации состояния;

Свойства Check. Box Action – определяет действие связанное с индикатором; Alignment – определяет положение надписи; Allow. Grayed – разрешает или запрещает появление в индикаторе третьего состояния cb. Grayed; Caption – надпись индикатора; Checked – указывает, выбран ли индикатор;

Свойства Check. Box State – определяет состояние индикатора: выключен (cb. Unchecked), включен (cb. Checked), в третьем состоянии (cb. Grayed); Tab. Order – указывает позицию компонента в списке табуляции. Определяет порядок переключения фокуса между компонентами окна при нажатии клавиши Tab; Tab. Stop – определяет возможность доступа пользователя к кнопке с помощью клавиши Tab;

Методы Check. Box Execuate. Action – bool Execute. Action(TBasic. Action* Action) вызывает указанное действие Action, связанное с данным индикатором; Hide - void Hide(void) делает индикатор видимым; Set. Focus – void Set. Focus(void) передает фокус элементу, активизирует его; Show – void Set. Focus(void) делает видимым невидимый индикатор;

События Check. Box On. Click – наступает при щелчке на компоненте. On. Context. Popup – наступает при вызове пользователем контекстного меню, связанного с компонентом.

TForm 1 *Form 1; float summ; //сумма покупки __fastcall TForm 1: : TForm 1(TComponent* Owner) : TForm(Owner) { Check. Box 2 ->Enabled=false; }

void __fastcall TForm 1: : Check. Box 1 Click(TObject *Sender) { if (Check. Box 1 ->Checked) { summ+=65; Check. Box 2 ->Enabled=true; } else { summ-=65; if (Check. Box 2 ->Checked) Check. Box 2 -> Checked=false; Check. Box 2 ->Checked=false; } Label 2 -> Caption=Float. To. Str. F(summ, ff. General, 6, 2)+" тенге"; }

void __fastcall TForm 1: : Check. Box 2 Click(TObject *Sender) { if (Check. Box 2 ->Checked) summ+=125. 75; else summ-=125. 75; Label 2 -> Caption=Float. To. Str. F(summ, ff. General, 6, 2)+" тенге"; }

void __fastcall TForm 1: : Check. Box 3 Click(TObject *Sender) { if (Check. Box 3 ->Checked) summ+=324. 25; else summ-=324. 25; Label 2 -> Caption=Float. To. Str. F(summ, ff. General, 6, 2)+" тенге"; }

void __fastcall TForm 1: : Check. Box 4 Click(TObject *Sender) { if (Check. Box 4 ->Checked) summ+=210. 5; else summ-=210. 5; Label 2 -> Caption=Float. To. Str. F(summ, ff. General, 6, 2)+" тенге"; }

void __fastcall TForm 1: : Bit. Btn 1 Click(TObject *Sender) { if ((Check. Box 1 ->Checked)&&(Check. Box 2 -> Checked)&&(Check. Box 3 ->Checked) && (Check. Box 4 ->Checked)) { summ=summ*0. 95; Show. Message( «Вам предоставляется скидка 5% n" «Сумма покупки: " + Float. To. Str. F(summ, ff. General, 6, 2)+" тенге. "); } else if((Check. Box 1 ->Checked)||(Check. Box 3 -> Checked)||(Check. Box 4 ->Checked)) Show. Message( «Сумма покупки: " + Float. To. Str. F(summ, ff. General, 6, 2)+" тенге"); else Show. Message( «Вы ничего не купили"); }

Компонент Radio. Button Класс TRadio. Button Компонент Radio. Button – компонент используемыми в совокупности с другими радиокнопкаим для выбора одной из взаимоисключающих альтернатив. Из кнопок, объединеных в группу, включена может быть только одна.

Свойства Radio. Button Action – определяет действие связанное с данной кнопкой; Alignment – определяет положение надписи относящейся к радиокнопке; Caption – надпись на кнопке; Checked – указывает, выбрана ли радиокнопка;

Свойства Radio. Button Tab. Order – указывает позицию компонента в списке табуляции. Определяет порядок переключения фокуса между компонентами окна при нажатии клавиши Tab; Tab. Stop – определяет возможность доступа пользователя к кнопке с помощью клавиши Tab;

Методы Radio. Button Execuate. Action – bool Execute. Action(TBasic. Action* Action) вызывает указанное действие Action, связанное с данной кнопкой; Hide - void Hide(void) делает кнопку видимым; Set. Focus – void Set. Focus(void) передает фокус элементу, активизирует его; Show – void Set. Focus(void) делает видимым невидимый кнопку;

События Radio. Button On. Click – наступает при щелчке на компоненте. On. Context. Popup – наступает при вызове пользователем контекстного меню, связанного с компонентом.

void __fastcall TForm 1: : Button 1 Click(TObject *Sender) { float r 1, r 2, r; r 1=Str. To. Float(Edit 1 ->Text); r 2=Str. To. Float(Edit 2 ->Text); if (Radio. Button 1 ->Checked) r=r 1+r 2; else { try { r=(r 1*r 2)/(r 1+r 2); } catch (EInvalid. Op &e) { Show. Message( «Задайте величину сопротивления!"); return; } } Label 4 ->Caption="R = "+ Float. To. Str. F(r, ff. General, 6, 2)+" Ом"; }

void __fastcall TForm 1: : Radio. Button 1 Click(TObject *Sender) { Label 4 ->Caption= «Выбрано последовательное соединение. "; } //----------------------void __fastcall TForm 1: : Radio. Button 2 Click(TObject *Sender) { Label 4 ->Caption= «Выбрано параллельное соединение. "; }