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

160 
 
   end; 
  end; 
  if nmComp<>'' then ShowMessage(nmComp); 
  //Отладочная строка: 
    fmMain.Caption:= IntToStr(XYPoint.x)+'-'+IntToStr(XYPoint.y)+' / '+ 
      IntToStr(R.Left)+'-'+IntToStr(R.Top)+'-'+ 
      IntToStr(R.Right)+'-'+IntToStr(R.Bottom); 
end; 
8. 
Жобаны  қайтадан  орындауға  жіберіңіз  және  тасымалдау  аяқталғаннан  кейін 
программа    DBImage  компонентінің  атының  дұрыстығы  туралы  хабар  беретініне  көз 
жеткізіңіз. 
9. 
Бізге  алгоритмнің    d)  және  e)    пункттерін  іске  асыру  қалды.  Жұмыс  сенімді 
болуы үшін қолданушыға .bmp  кеңейтілуі бар файлдарды тасымалдауға рұқсат береміз. Ол 
үшін  мәтінге  төменде  қалың  шрифтпен  берілген  жолды  қосып,   (отладочную)  жолды  алып 
тастаңыз : 
procedure TfmMain.WMDropFiles(var Msg: TMessage); 
var j:integer; 
    R:TRect; 
    ctr:TControl; 

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

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