Delphi визуалды программалау ортасы

procedure Tform1.Button1Click(Sender: Tobject); begin

жүктеу 1,5 Mb.

бет	52/94
Дата	03.02.2022
өлшемі	1,5 Mb.
	#35447

1 ... 48 49 50 51 52 53 54 55 ... 94

Delphi визуалды программалау жүйесі

Unit2
OnCloseQuery

procedure Tform1.Button1Click(Sender: Tobject);
begin
Form2.ShowModal;
if Form2.ModalResult=mrYes then // Бұл оператор Form2 //жабылған соң ғана қолжетімді болады
Form1.Caption:='Тұтынушы оң жауап берді!';
end;

Осы мысалдан көріп отырғанымыздай, бір пішіннен басқа пішіннің қасиеттеріне , сол сияқты олардың компоненттеріне қатынас жасау үшін сол пішіннің аты көрсетілуі қажет екен. Оған қоса біз оның жұмысын сипаттайтын модулде қолданылатын мәліметтерге де қол жеткізе аламыз. Ол үшін де модулдің аты көрсетілуі қажет. Мысалы, Unit2 модуліндегі X айнымалымына қатынас жасау үшін: Unit2.X деп жазамыз.

Көбінесе бағдарламада пішінді жабу сәтінде белгілі бір операциялар орындалуы тиіс. Ол пішіннің OnClose оқиға өңдеуішінде жасалады. Ал енді пішінді жабуды болдырмауды қарастырайық. Осы мақсатта OnCloseQuery оқиға өңдеуішін қолдануға болады. Ол өңдеуіштегі CanClose логикалық айнымалысының қабылдайтын мәніне байланысты. Пішін CanClose:=True; мәнін қабылдағанда ғана жабылады.

Егер біз мынадай код жазсақ:

procedure Tform1.FormCloseQuery(Sender: Tobject; var CanClose: Boolean);

жүктеу 1,5 Mb.

Достарыңызбен бөлісу:

1 ... 48 49 50 51 52 53 54 55 ... 94