• lewka © (22.05.17 12:27) [0]
    Привет, мастера программирования.

    вот такой код

    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;


    Но при клике на пункт меню код выполняется, но само меню не убирается, пока мышкой в форму не  ткнешь.
    Подскажите, как это исправить
Есть новые Нет новых   [118234   +5][b:0][p:0.001]