Зертханалық жұмыс №1 «Қойма» деректер қорын басқару жүйесін құру


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



бет69/100
Дата06.02.2022
өлшемі1,89 Mb.
#53051
1   ...   65   66   67   68   69   70   71   72   ...   100
Байланысты:
БД-зертханалық жұмыс

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
nmComp:= ctr.Name;Break;
end;
end;


Достарыңызбен бөлісу:
1   ...   65   66   67   68   69   70   71   72   ...   100




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

    Басты бет