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

жүктеу 2,2 Mb.

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

1 ... 90 91 92 93 94 95 96 97 ... 118

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

Мысал 3.5.8

IF FoundAt <> -1 THEN

BEGIN

SetFocus;

SelStart := FoundAt;

SelLength := Length(FindDialog1.FindText);

END;

END;

end;

Replace Dialog – мәтіннің үзіндісін іздеу және айырбастау диалог терезесі.

Иерархиясы:

TObject – TPersistent – TComponent – TCommonDialog – TFindDialog.

Мәтіннің үзіндісін іздеу және айырбастау диалог терезесі тікелей TFindDialog класынан туындайтын және оның барлық сипаттамаларына ие болатын TReplaceDialog класының данасы болып табылады. Ол мәтіннен сол және басқа үзіндіні табуға және қажет жағдайда оны басқа үзіндіге ауыстыруға мүмкіндік береді (сурет 3.5.6 қараңыздар).

Бұл класта қосымша ReplaceText қасиеті анықталған.

property ReplaceText: String – мүмкін табылған үзіндіге айырбас жасалатын мәтін анықталады.

Бұл класта тағы OnReplace оқиғасы анықталған.

property OnReplace: TNotifyEvent;

Оқиға диалог терезесінің Заменить (Replace) немесе Заменить все (Replace All) батырмалары басылғанда өрбиді.

Мысал 3.5.8 ReplaceDialog1 құрауышы үшін келесі OnReplace оқиға өңдеуіші TMemo класының Memo1 құрауышынан FindText - ті іздейді және оны ReplaceText – ке айырбастайды. Ол TMemo класының SelStart, SelLength және SelText қасиеттерін қолданады.

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);

жүктеу 2,2 Mb.

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

1 ... 90 91 92 93 94 95 96 97 ... 118