Зертханалық жұмыс №1 «Delphi интерфейсінің элементтері»

жүктеу 2,2 Mb.

бет	88/118
Дата	04.01.2022
өлшемі	2,2 Mb.
	#36255

1 ... 84 85 86 87 88 89 90 91 ... 118

Зертханалы ж мыс №1 «Delphi интерфейсіні элементтері»

IF Execute THEN {Қаріпті таңдау диалог терезесін активтейді}

Label1.Font:=Font; {Егер терезе ОК батырмасымен жабылса, онда таңдап алынған сипаттамалар , Label1құрауышының қаріпіне беріледі}

END;

end;

Мысал 3.5.5 Бұл мысал пішінде орналастырылған келесі басқару элементтерін қолданады: Edit, Main Menu, Rich Edit. Қолданушы Шрифт менюінің пунктіне шерткенде, қаріпті таңдау диалогы активтелінеді. Қолданушы диалог терезесінің Применить (Apply) батырмасына шерткенде сол сәтте таңдап алынған қаріптің сипаттамалары активті басқару элементіне қолданылады.

procedure TForm1.Menu_FontClick(Sender: TObject);

begin

{Options қасиетіне fdApplyButton параметрін қосады}

FontDialog1.Options := FontDialog1.Options + [fdApplyButton];

FontDialog1.Execute; {Қаріпті таңдау диалог терезесін активтейді}

жүктеу 2,2 Mb.

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

1 ... 84 85 86 87 88 89 90 91 ... 118