• Registered: 2018-03-04
  • Posts: 377

Topic: Не понимаю почему не работает условие...

Везде прокатывает, и используется...

procedure frmNote_Button17_OnClick (Sender: TObject; var Cancel: boolean);
begin
    if (frmNote.Memo2.Text='') then ShowHint(frmNote.Memo2, 'Заполните поле') else frmNote.Button18.Click;
end;

Получается, что и надпись загорается и кнопка нажимается...

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Не понимаю почему не работает условие...

vit007 wrote:

Везде прокатывает, и используется...

procedure frmNote_Button17_OnClick (Sender: TObject; var Cancel: boolean);
begin
    if (frmNote.Memo2.Text='') then ShowHint(frmNote.Memo2, 'Заполните поле') else frmNote.Button18.Click;
end;

Получается, что и надпись загорается и кнопка нажимается...

загрузите проект

  • Registered: 2018-03-04
  • Posts: 377

Re: Не понимаю почему не работает условие...

Вот касячник, забыл с кнопки снять "показать форму"...

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,532

Re: Не понимаю почему не работает условие...

Волшебная фраза "Загрузите проект" способна исправить 95% ошибок smile

Визуальное программирование: блог и телеграм-канал.

k245's Website