var dbIM:TDBImage;nmField:string

begin

end;
procedure TfmMain.mcSaveClick(Sender: TObject);

begin

end;
procedure TfmMain.mcClearClick(Sender: TObject);

begin

end;

6. 
   МҚ-ын суреттермен толтыру үшін сонымен қатар әлемдегі елдердің туларын ..\STUDENT\Заготовки\DataWorld папкасынан іздеуге болады.
   

Біз алгоритмді орындаймыз:

1. 
   Формаға орналастырған файлдың атын анықтаймыз.
   
2. 
   «жіберу» кезіндегі тышқанның координаттарын анықтаймыз.
   
3. 
   Бұл сәтте тышқан курсоры қай компонентте болғанын анықтаймыз.
   
4. 
   Берілген компонент файлды «қабылдай» алады ма дегенді тексереміз.
   
5. 
   Егер иа болса , онда файлды өңдеу үшін сәйкес әдісті шақырамыз.
   

1. 
   Қолданылатын модульдер тізіміне ShellAPI модульін қосыңыз.
   
2. 
   Форманың модульінің private және public кілттік сөздерінің арасына
   

……………………………………….

private

{ Private declarations }

public

end;

3. 
   OnCreate формасының өңдеушісіне төменде қалың шрифтпен берілген жолды қосыңыз:
   

var sbase:string;

begin

sbase:=FindFileBD('BDMyWorld.mdb','MyWorld.INI',ConStr,dlgBD);

ADOQuery1.Active :=False;

ADOQuery1.ConnectionString :=ConStr;

ADOQuery1.Active :=True;

NameSortField:=DBGrid1.Columns[0].FieldName;Desc:=False;

NewQuerySQL;

end else Application.Terminate;

Application.HintPause :=0;

end;

4. 
   Поместите текстовый курсор на заголовок процедуры 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;

5. 
   Жобаны орындауға жіберіп және ярлыктарды жұмыс столынан формаға тасымалдап, форманың атауында файлдың «дұрыс» аты және тышқанның координаты дұрыс берілгеніне көз жеткізу керек.
   
6. 
   Сонымен біз алгоритмнің 1) және 2) пункттерін орындадық . Тышқанды «жіберу» болған компонентті анықтайық.
   
7. 
   WMDropFiles процедурасына қалың шрифтпен ерекшеленген жолдарды қосыңыз және (отладочную) жолды төмендегідей етіп өзгертіңіз:
   

begin

DragQueryFile(THandle(Msg.WParam),0,drFile,SizeOf(drFile));

DragQueryPoint(THandle(Msg.WParam),XYPoint);

DragFinish(THandle(Msg.WParam));

if (XYPoint.x >Left) and(XYPoint.x

(XYPoint.y >Top) and(XYPoint.y

nmComp:= ctr.Name;Break;

end;

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;

dbIM:TDBImage;

begin

nmComp:='';ctr:=nil;dbIm:=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;

end;

if nmComp<>'' then begin

dbIM:=ctr As TDBImage;

if not(dbIm is TDBImage) then Exit;

if dbIM=nil then Exit;

if not(ExtractFileExt(drFile)='.bmp') then Exit;

try

if dbIM.DataSource.State <> dsEdit then dbIM.DataSource.Edit;

dbIM.Picture.LoadFromFile(drFile);

dbIM.DataSource.DataSet.Post;

except

ShowMessage('Ошибка записи в БД изображения из файла:'+#13#10+drFile);

end;

end;

end;

10. 
    Әртүрлі нақты суреттерді формаға тасымалдау программасының жұмысын тексеріңіз:
    

жүктеу/скачать 1,52 Mb.

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