«Қазақстан тарихы, жалпы білім беру пәндері және ақпараттық жүйелер» кафедрасы


procedure TForm1.Edit1Click(Sender : TObject); begin



бет16/105
Дата09.08.2020
өлшемі0,51 Mb.
#76246
түріЛекция
1   ...   12   13   14   15   16   17   18   19   ...   105
procedure TForm1.Edit1Click(Sender : TObject); begin

Edit1.Text:=‘Сіз редакциялау ӛрісін екі рет шертіңіз‘; end;

программаны іске қосу командасы берілген соң компилятор автоматты

түрде негізгі модульге енгізілген тӛмендегі екі тәсілді орындайды:

Application.CreateForm(TForm1, Form1);

Application.Run;

Бұлардың біріншісі жадта Form1 объектісін құрады (объектіні инициалдайды), екіншісі Application объектісіне қосымшаның негізгі формасын іске қосуға нұсқау береді (Run). Жоғарыда жазылған процедураның орындалу нәтижесінде форманың Edit1 ӛрісіне оның Text қасиетіне меншіктелген мәтін жазылады.

Ескерту. Белгісіз жағдайда программада тәсілді не қасиет орнату командасын иерархиялық түрде жазу қажет, мысалы:

TForm1.Button1.FontSize:= 14;

Мұндағы иерархияның бірінші объектісі – форма (Form1), екінші объект – формада орнатылған Button1 түймесі, үшінші объект – түйменің шрифт қасиеті; команда – форманың Button1 объектісіне енгізілген FontSize (шрифт ӛлшемі) айнымалысына 14 мәнін меншіктеу. Яғни, объектілер арасына қойылатын нүкте сәйкес иерархиялық объектіге сілтеме.



Достарыңызбен бөлісу:
1   ...   12   13   14   15   16   17   18   19   ...   105




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет