Шығыс Қазақстан облысының білім басқармасы

DragAcceptFiles(Handle,True)

жүктеу/скачать 4,77 Mb.

Pdf көрінісі

бет	173/180
Дата	06.01.2022
өлшемі	4,77 Mb.
	#15026

1 ... 169 170 171 172 173 174 175 176 ... 180

Байланысты:
УМК-ОББ

  DragAcceptFiles(Handle,True);
end;
4.
Поместите  текстовый  курсор  на  заголовок  процедуры  WMDropFiles
процеурасының  атауына  мәтіндік  курсорды  орналастырыңыз..  Бірдей  уақытта
CTRL+SHIFT+C –ті басыңыз. Delphi төменде көрсетілген шаблонды құрады.Осыған қалың
шрифтпен ерекшеленген жолды теріңіз:

procedure TfmMain.WMDropFiles(var Msg: TMessage);
begin
  DragQueryFile(THandle(Msg.WParam),0,drFile,SizeOf(drFile));
  DragQueryPoint(THandle(Msg.WParam),XYPoint);
  DragFinish(THandle(Msg.WParam));
//Отладочная строка:
  Caption:= String(drFile)+'-'+IntToStr(XYPoint.x)+'-'+IntToStr(XYPoint.y);
end;

5.
Жобаны  орындауға  жіберіп  және  ярлыктарды  жұмыс  столынан  формаға
тасымалдап,  форманың  атауында    файлдың  «дұрыс»  аты  және  тышқанның  координаты
дұрыс берілгеніне көз жеткізу керек.
6.
Сонымен  біз  алгоритмнің  1)  және  2)  пункттерін  орындадық  .  Тышқанды
«жіберу» болған  компонентті  анықтайық.
7.

жүктеу/скачать 4,77 Mb.

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

1 ... 169 170 171 172 173 174 175 176 ... 180