ShowModal и SetFocus Delphi XE7

[Shouldercannon]

Доброго времени суток!
Заметил, что на форме вызванной с помощью ShowModal не работает SetFocus, например у TEdit или TMemo1 и подозреваю, что у всего остального. Что это за нововведение такое и как с ним бороться?

[саша40]

А SetMouseFocus работает?

[Stilet]

Что это за нововведение такое и как с ним бороться?

Не знаю насчет нововведения, но вот вопрос - где ты SetFocus вызываешь?
К примеру если вызвать в OnShow то все работает. Возможно ты пытаешься приписать вызов фокуса после ShowModal или до, тогда конечно облом )
И вполне обьяснимый.

[Shouldercannon]

Один и тот же код в Delphi 7 и Delphi XE7

...
var
  Form3: TForm3;

implementation

{$R *.dfm}

uses Unit4;

procedure TForm3.Button1Click(Sender: TObject);
begin
  Form4.ShowModal;
end;
...
var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin
  MessageBox(0, 'Пароль не указан', 'PChar(ProgramName)', MB_ICONError);
  Edit1.SetFocus;
  Exit;
end;

Стоит в Delphi XE7 убрать

MessageBox(0, 'Пароль не указан', 'PChar(ProgramName)', MB_ICONError);

И фокус сразу устанавливается. В Delphi 7 оба варианта работают.

[Stilet]

Что-то мне этот пример совсем не нравится...
Т.е. ты хочешь сказать что в ХЕ, после вызова MessageBox-а первый эдит не получает фокус?

[Shouldercannon]

И второй TEdit и TMemo, да что угодно.

[Аватар]

MessageBox(Handle, 'Пароль не указан', 'PChar(ProgramName)', MB_ICONError);
И фокус нормально будет устанавливаться

[xxbesoxx]

Заметил, что на форме вызванной с помощью ShowModal не работает SetFocus, например у TEdit или TMemo1

Перед вызова надо посмотреть свойства TabOrder если TEdit --TabOrder =0 тогда фокус будет на Edit -е . А если TMemo1--TabOrder =0 ... в общем для просмотра табуляций на визуальный компонента пользуюсь CnWizards http://www.cnpack.org/index.php?lang=en

[Аватар]

Перед вызова надо посмотреть свойства TabOrder если TEdit --TabOrder =0 тогда фокус будет на Edit -е . А если TMemo1--TabOrder =0 ... в общем для просмотра табуляций на визуальный компонента пользуюсь CnWizards

В огороде бузина, а в Киеве дядька

[xxbesoxx]

В огороде бузина, а в Киеве дядька

:D :D :D Дякую, буду знать