DragAcceptFiles(Handle,True); end;
Поместите текстовый курсор на заголовок процедуры 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;
Жобаны орындауға жіберіп және ярлыктарды жұмыс столынан формаға тасымалдап, форманың атауында файлдың «дұрыс» аты және тышқанның координаты дұрыс берілгеніне көз жеткізу керек.
Сонымен біз алгоритмнің 1) және 2) пункттерін орындадық . Тышқанды «жіберу» болған компонентті анықтайық.
