char
&Key)
{
if
(Key>='0' || Key<='9') ; // бұл 0- 9 цифрларды кӛрсету
if
(Key==8) ; // Backspace -ӛшіру пернесінің
ішкі коды
if
(Key==13) //
ENTER
перенсінің ішкі коды
Edit3->SetFocus();
}
Ал, форма терезесіндегі барлық терезелік компоненттерде басқару фокустарының
ӛзара ауысып отыруын ұйымдастыру үшін
Form компонентінің
SelectNext (TWinControl*
CurControl, bool GoForward, bool CheckTabStop);
әдісі қолданылады. Қосымшадағы
Memo
терезесін мәтіндік файлдарды ашып оқу үшін немесе терезедегі
мәтінді тексттік файлға
жазып сақтау үшінде қолдануға болады. Ол үшін оның
LoadFromFile (FileName)
әдісі-
терезедегі мәтінді файлға жазуды, ал
SaveToFile (FileName)
әдісі-керісінше
файлдағы
мәтінді
Memo
терезесіне шығаруды қамтамасыз етеді. Мысалы:
...
AnsiString
FileName
= "C:\\WINDOWS\\WIN.INI";
// файлдың аты
Form1->Memo1->Lines->LoadFromFile(FileName);
Form1->Memo1->Lines->SaveToFile(ChangeFileExt
(FileName, ".BAK"));
...
Жаттығу жұмыстары
Үшбұрыштың ауданын, биіктігі мен табаны бойынша есептеуді орындайтын
қарапайым қосымша құру. Қосымша терезесі келесі түрде болуы қажет /4.4-сурет(а,б)/.
4.4-сурет. а)
Форма терезесі
4.4-сурет. в) Қосымша терезесі
Орындалуы:
1.
File
New
Application
командалары орындалады.
2.
Жаңа құрылған жобаны сақтау үшін
Filе
Save All
командасы орындалады. Жоба
құрамына кіретін файлдардың бір бумада сақталуы қажет.
3.
Форма терезесіне қажет компоненттер /4.4-суреттегідей/
орналастырылып және
олардың келесі қасиеттері ӛзгертіледі:
Достарыңызбен бөлісу: