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

жүктеу 2,2 Mb.

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

1 ... 69 70 71 72 73 74 75 76 ... 118

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

Мысал 3.4.1 Басқару элементін тасуды қамтамасыз ететін бағдарлама.

Басқару элементін тасуды жүзеге асыратын бағдарлама жазайық. Ол үшін пішінге GroupBox тақырыбы бар панель мен Button батырмасын орналастырайық. Батырма мен оған орналасқан панельді пішіннің бойымен жылжытайық.

Батырманы жылжыту үшін оның DragMode қасиетіне dmAutomatic мәнін беру керек, ал пішін мен панель үшін OnDragDrop және OnDragOver оқиғаларының өңдеуішін жазу керек. Батырмаға OnStartDrag және OnEndDrag оқиғаларының қолданылғанын көрсету үшін батырмалардың аттарын өзгертетін оқиғалардың өңдеуішін жазу керек.

Тапсырманың шешімін келесі түрде ұйымдастыруға болады:

Button1 қасиетінің DragMode қасиетіне dmAutomatic мәнін тағайындайық. Ол оның жылжуын тікелей тышқанның көмегімен асыруға мүмкіндік береді.
Пішін тасылатын батырманы қабылдайтындай күйде болатындай шартты ұйымдастырайық. Ол үшін пішіннің OnDragOver оқиғасының өңдеуішін қалыптастырайық.

procedure TForm1.FormDragOver(Sender, Source: TObject;

X, Y: Integer; State: TDragState; var Accept: Boolean);

begin

Accept:= True; {Оқиға пішіннің жаңа орнына жылжығаннан кейін батырманың босатылуына мүмкіндік береді}

end;

Пішінге батырманы тасуды аяқтауда қажетті әрекетті іске асыратын OnDragDrop оқиғасының өңдеуішін құрайық:

procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);

жүктеу 2,2 Mb.

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

1 ... 69 70 71 72 73 74 75 76 ... 118