if dbIm<>nil then begin nmField:=dbIM.DataField; if dbIM.DataSource.State <> dsEdit then dbIM.DataSource.Edit; dbIM.DataSource.DataSet.FieldByName(nmField).Clear; dbIM.DataSource.DataSet.Post; end; end;
МҚ-ын суреттермен толтыру үшін сонымен қатар әлемдегі елдердің туларын ..\STUDENT\Заготовки\DataWorld папкасынан іздеуге болады.
4-қадам. –Drag&Drop технологиясы бойынша графикалық файлдарды тасымалдау. Егер қолданушы проводниктен немесе біздің жобаға басқа программадан графикалық файлдарды тышқын арқылы тасымалдауға мүмкіндік болса жақсы болар еді. Бұл тәсіл Windows технологиясы бойынша «Drag and Drop» деп аталады.
Біз алгоритмді орындаймыз:
Формаға орналастырған файлдың атын анықтаймыз.
«жіберу» кезіндегі тышқанның координаттарын анықтаймыз.
Бұл сәтте тышқан курсоры қай компонентте болғанын анықтаймыз.
Берілген компонент файлды «қабылдай» алады ма дегенді тексереміз.
Егер иа болса , онда файлды өңдеу үшін сәйкес әдісті шақырамыз.
Қолданылатын модульдер тізіміне ShellAPI модульін қосыңыз.
Форманың модульінің private және public кілттік сөздерінің арасына
