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


WMDropFiles    процедурасына  қалың  шрифтпен  ерекшеленген  жолдарды



Pdf көрінісі
бет174/180
Дата06.01.2022
өлшемі4,77 Mb.
#15026
1   ...   170   171   172   173   174   175   176   177   ...   180
Байланысты:
УМК-ОББ

WMDropFiles    процедурасына  қалың  шрифтпен  ерекшеленген  жолдарды 
қосыңыз және (отладочную) жолды төмендегідей етіп өзгертіңіз: 
procedure TfmMain.WMDropFiles(var Msg: TMessage); 
var j:integer; 
    R:TRect; 
    ctr:TControl; 
begin 
  nmComp:=''; ctr:=nil; 
  DragQueryFile(THandle(Msg.WParam),0,drFile,SizeOf(drFile)); 
  DragQueryPoint(THandle(Msg.WParam),XYPoint); 
  DragFinish(THandle(Msg.WParam));  
  for j := 0 to ComponentCount-1 do begin 
   if (Components[j] is TDBImage)  then  begin 
       ctr:= Components[j] as TControl; 
       R.Left :=ctr.Left+paLeft.Left;R.Top :=ctr.Top+paLeft.Top; 
       R.Right := R.Left+ctr.ClientWidth;R.Bottom :=R.Top+ctr.ClientHeight; 
      With R do 
       if (XYPoint.x >Left) and(XYPoint.x 
         (XYPoint.y >Top) and(XYPoint.y 


Достарыңызбен бөлісу:
1   ...   170   171   172   173   174   175   176   177   ...   180




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет