Привет, мастера программирования.
вот такой код
procedure Tfmdata_dir.H1Click(Sender: TObject);
begin
if sPageControl1.ActivePage=sTabSheet5 then
begin
sMemo3.Text:=ADOQuery4.fieldbyname('Opisanie').AsString;
sEdit20.Text:=ADOQuery4.fieldbyname('doctor').AsString;
tmp_edt:=1;
tmp_id:=adoquery4.fieldbyname('opis_id').AsInteger;
sButton2.Caption:='Сохранить';
sMemo3.SetFocus;
end
else
begin
ShowMessage('Сохраните открытое описание состояния гражданина');
end;
end;
Но при клике на пункт меню код выполняется, но само меню не убирается, пока мышкой в форму не ткнешь.
Подскажите, как это исправить