var dbIM:TDBImage; begin
if Not(dlgOpenImage.Execute) then Exit; dbIm:=nil; With MenuClip do if PopupComponent is TDBImage then dbIM:=(PopupComponent as TDBImage); if dbIm<>nil then begin if dbIM.DataSource.State <> dsEdit then dbIM.DataSource.Edit; dbIM.Picture.LoadFromFile(dlgOpenImage.FileName); dbIM.DataSource.DataSet.Post; end; end;
4.
Программаны орындауға жіберіңіз және «Открыть» командасының жұмысын
кез- келген сурет арқылы тексеріңіз.
5.
2-ші пункттегідей етіп менюдің басқа пункттері үшін төменде көрсетілген процедураны құрыңыз:
procedure TfmMain.mcPasteClick(Sender: TObject);
var dbIM:TDBImage; begin
dbIm:=nil; With MenuClip do if PopupComponent is TDBImage then dbIM:=(PopupComponent as TDBImage);
