if dbIm<>nil then begin
try
dbIm.PasteFromClipboard;
dbIM.DataSource.DataSet.Post;
except
ShowMessage('Буфер не содержит необходимый рисунок.');
end;
end;
end;
procedure TfmMain.mcPasteClick(Sender: TObject);
var dbIM:TDBImage;
begin
if Not(Clipboard.HasFormat(CF_PICTURE)) then Exit;
dbIm:=nil;
With MenuClip do
if PopupComponent is TDBImage then dbIM:=(PopupComponent as TDBImage);
if dbIm<>nil then begin
try
dbIm.PasteFromClipboard;
dbIM.DataSource.DataSet.Post;
except
ShowMessage('Ошибка сохранения рисунка.');
end;
end;
end;
procedure TfmMain.mcCopyClick(Sender: TObject);
var dbIM:TDBImage;
begin
dbIm:=nil;
With MenuClip do
if PopupComponent is TDBImage then dbIM:=(PopupComponent as TDBImage);
if dbIm<>nil then dbIM.CopyToClipboard;
end;
procedure TfmMain.mcCutClick(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
dbIM.CutToClipboard;nmField:=dbIM.DataField;
Достарыңызбен бөлісу: | 
