Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

15th
Авг

Передать фокус элементу до отображения формы по ShowModal

Posted by obzor under Delphi

Хотел сделать такой вот код, но он выдал ошибку в процессе исполнения

Код:

    E.SetFocus;
    If F.ShowModal ...

Где E — TEdit на форме F

Вопрос: как сделать фокус на E при том что я запускаю форму через ShowModal?

Arigato

Так до ShowModal форма не отображена, то есть фокус передать некуда. Надо до ShowModal установить значение свойства ActiveControl второй формы.

В качестве примера, на Form2 есть 2 TEdit. На Form1 две кнопки. При нажатии первой открывается вторая форма с передачей фокуса первому TEdit, при нажатии второй — второму. Код Unit1:

Код:

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.ActiveControl:=Form2.Edit1;
  Form2.ShowModal;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form2.ActiveControl:=Form2.Edit2;
  Form2.ShowModal;
end;