Page 65 - электрондык_окулык

Transparent қасиеті True мәнінде;
СlWhite мәнінде Font –> Color қасиеті.
5. Label1 компоненті үшін OnMouseEnter оқиға ӛңдеушісін құрыңыз және келесі кодты
жазыңыз:
Label1.Font.Style:=[fsUnderline];
6. Label1 компоненті үшін OnMouseLeave оқиға ӛңдеушісін құрыңыз және келесі кодты
жазыңыз: Label1.Font.Style:=[];
7. Формада Label2 компонентін орнатыңыз. Caption қасиетін О программе… мәнінде
орнатыңыз.
8. Label2 компоненті үшін OnMouseEnter оқиға ӛңдеушісін құрыңыз және келесі кодты
жазыңыз: Label2.Font.Color:=clWhite;
9. OnMouseLeave оқиға ӛңдеушісін құрыңыз және келесі кодты жазыңыз:
Label2.Font.Color:=clBlack;
10. AboutBox жаңа формасын қосыңыз. Label2Click оқиға ӛңдеушісінде келесі кодты
жазыңыз:
AboutBox.ShowModal;
11. Image1 компоненті үшін форманы экран бойынша тышқанмен қайта орналастыру
мүмкін болу үшін OnMouseDown оқиға ӛңдеушісін құрыњыз және келесі кодты
жазыңыз:
const SC_DRAGMOVE : Longint = $F012;
begin
if Button <> mbRight then
begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
12. Жобаға жаңа форманы құрыңыз. Формада WebBrowser1 компонентін орнатыњыз, ол
Internet қыстырмасында орналасқан.
13. Форма үшін OnShow оқиға ӛңдеушісін құрыңыз және келесі кодты жазыңыз:
WebBrowser1.Navigate(ExtractFileDir(Application.ExeName)+'\data\1.html');
1.html файлы data бумасында орналасуы керек, ехе-файл орналасқан директорийде
орналасады.
14. Басты формадан келесіге ӛтетін түймеше қүрыңыз. Проектіні орнатып, тест
жүргізіңіз.

№10 зертханалық жұмыс. ini-файлды пайдалана отырып программаны жасаңыз.
Жұмыстың орындалу әдістемесі:
1.Жаңа қосымша құрыңыз және оны жеке бумада сақтаңыз. Бұл бумада тексттік файл
құрыңыз және txt кеңейтілуін ini типіне ауыстырыңыз.
2.Ini-файл Квадрат жақшаларда бӛлім аттарын қамтиды, және тең белгісі қойылатын
ішкі бӛлімдерді қамтиды. Мысалы:
[fio]
fam=Иванов
name=Петр
otch=Петрович
1. Б±нда uses тізімінде IniFiles модулін бересіз.
2. inif: TiniFile глобальді айнымалысын бересіз;
3. Формаға StringGrid компонентін қойыңыз. Бұл компонент берілгендерді енгізуге
болатын кестені қамтиды. Оған келесі қасиеттерді орнатыңыз: ColCount (бағандар
саны) мәні 3, FixedCols (тиянақталған қатарлар саны) мәні 0, DefaultRowHeight
(ұяшықтар биіктігі) мәні 20.