Var dbIm:tdbImage;

begin

If Not(dlgSaveImage.Execute) then Exit;

dbIm:=nil;

With MenuClip do

if PopupComponent is TDBImage then dbIM:=(PopupComponent as TDBImage);

try

if dbIm<>nil then dbIM.Picture.SaveToFile(dlgSaveImage.FileName);

except

ShowMessage('Ошибка записи в файл:'+#13#10+dlgSaveImage.FileName);

end;

end;

procedure TfmMain.mcClearClick(Sender: TObject);

Var dbIm:tdbImage;nmField:string;

begin

dbIm:=nil;

With MenuClip do

if PopupComponent is TDBImage then dbIM:=(PopupComponent as TDBImage);

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;

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

4-қадам. –Drag&Drop технологиясы бойынша графикалық файлдарды тасымалдау.

Егер қолданушы проводниктен немесе біздің жобаға басқа программадан графикалық файлдарды тышқын арқылы тасымалдауға мүмкіндік болса жақсы болар еді. Бұл тәсіл Windows технологиясы бойынша «Drag and Drop» деп аталады.

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

1. Формаға орналастырған файлдың атын анықтаймыз.

2. «жіберу» кезіндегі тышқанның координаттарын анықтаймыз.

3. Бұл сәтте тышқан курсоры қай компонентте болғанын анықтаймыз.

4. Берілген компонент файлды «қабылдай» алады ма дегенді тексереміз.

5. Егер иа болса , онда файлды өңдеу үшін сәйкес әдісті шақырамыз.

1. Қолданылатын модульдер тізіміне ShellAPI модульін қосыңыз.

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

қалың шрифтпен ерекшеленген мәтінді орналастырыңыз:

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

private

{ Private declarations }

drFile: array[0..256] of char;

XyPoint:tPoint;

nmComp:string;

protected

procedure WMDropFiles (var Msg: TMessage);message wm_DropFiles;

public

{ Public declarations }

end;

…………………………………………

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

procedure TfmMain.FormCreate(Sender: TObject);

var sbase:string;

begin

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

if sbase<>'' then begin

ADOQuery1.Active :=False;

ADOQuery1.ConnectionString :=ConStr;

ADOQuery1.Active :=True;

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

NewQuerySQL;

end else Application.Terminate;

Application.HintPause :=0;

DragAcceptFiles(Handle,True);

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 процедурасына қалың шрифтпен ерекшеленген жолдарды қосыңыз және (отладочную) жолды төмендегідей етіп өзгертіңіз:

procedure TfmMain.WMDropFiles(var Msg: TMessage);