var j:integer;
dbIM:TDBImage;
//Ссылка на компонент, из которого вызвано меню
nmField:string;
//Имя поля БД, с которым связан компонент
tmf:TMemoField;
//Ссылка на поле БД, с которым связан компонент
begin
// Запрет – разрешение пунктов меню:
With MenuClip do begin
Items[1].Enabled := Clipboard.HasFormat(CF_PICTURE);
//Вставка
if PopupComponent is TDBImage then dbIM:=(PopupComponent as TDBImage);
if dbIm<>nil then begin
nmField:=dbIM.DataField;
tmf:=dbIM.DataSource.DataSet.FieldByName(nmField) as TMemoField;
if tmf<>nil then begin
if tmf.BlobSize>0 then Items[2].Enabled :=True
156
else Items[2].Enabled :=False;
//Копирование
Items[3].Enabled :=Items[2].Enabled;
//Вырезка
Items[4].Enabled :=Items[2].Enabled;
//Сохранение
Items[5].Enabled :=Items[2].Enabled;
//Очистка
end;
Достарыңызбен бөлісу: |