курсор ввода текста

[Михаил Юрьевич]

Подскажите как сделать чтобы при открытии текстового редактора
в RichEdit курсор ввода текста находился в поле,вставил в
RichEdit1Change-RichEdit1.SetFocus; программа выдает ошибку

[puporev]

Самое простое при проектировании сделать свойство TabOrder у RichEdit1 равным 0, тогда при открытии программы курсор всегда будет в RichEdit1.

[Табурет]

Сообщение от Михаил Юрьевич

Подскажите как сделать чтобы при открытии текстового редактора
в RichEdit курсор ввода текста находился в поле,вставил в
RichEdit1Change-RichEdit1.SetFocus; программа выдает ошибку

SetWindowFocus(RichEdit1.Handle, false); <- примерно так. Событие лучше вешать на Form.Activate, чтобы RichEdit1 уже был создан.

[B_N]

Сообщение от Табурет

SetWindowFocus(RichEdit1.Handle, false); <- примерно так. Событие лучше вешать на Form.Activate, чтобы RichEdit1 уже был создан.

Что это за функция такая - SetWindowFocus ???
----------------

Сообщение от Михаил Юрьевич

Подскажите как сделать чтобы при открытии текстового редактора
в RichEdit курсор ввода текста находился в поле,вставил в
RichEdit1Change-RichEdit1.SetFocus; программа выдает ошибку

Михаил Юрьевич, а кто Вас научил вызывать SetFocus в обработчике WM_CHANGE? Ставьте его в OnFocused у формы, или сделайте, как puporev предлагает... И что за ошибка?

[Stilet]

Ставьте его в OnFocused у формы

э-э-э думаю ты хотел сказать OnActivate ибо нет OnFocused события у формы.

[andrey4623]

проще по onShow

[Stilet]

проще по onShow

Нет. Не сработает если форма уже видна.

[B_N]

Сообщение от Stilet

э-э-э думаю ты хотел сказать OnActivate ибо нет OnFocused события у формы.

Stilet, не совсем. Это плохо, что у формы нет изначального обработчика WM_SETFOCUS, запамятовал, видимо, но я бы его для таких случаев определял вручную. Я считаю, что определенные события должны обрабатываться в соответствующих им местах. Например, другое приложение гипотетически может вызвать SetFocus на главное окно нашего и цепочка будет нарушена. В качестве примера - обработка (интересующих нас) сообщений в главном окне обычного блокнота:

1. Активация главного окна

<00001> 0013026C S WM_ACTIVATEAPP fActive:True dwThreadID:00000000
<00002> 0013026C R WM_ACTIVATEAPP
<00003> 0013026C S WM_NCACTIVATE fActive:True
<00004> 0013026C R WM_NCACTIVATE
<00005> 0013026C S WM_ACTIVATE fActive:WA_CLICKACTIVE fMinimized:False hwndPrevious:(null)
<00006> 0013026C S WM_SETFOCUS hwndLoseFocus:(null)
<00007> 0013026C S WM_KILLFOCUS hwndGetFocus:000803B2
<00008> 0013026C R WM_KILLFOCUS
<00009> 0013026C R WM_SETFOCUS
<00010> 0013026C R WM_ACTIVATE

2. Деактивация главного окна

<00011> 0013026C S WM_NCACTIVATE fActive:False
<00012> 0013026C R WM_NCACTIVATE fDeactivateOK:True
<00013> 0013026C S WM_ACTIVATE fActive:WA_INACTIVE fMinimized:False hwndPrevious:(null)
<00014> 0013026C R WM_ACTIVATE
<00015> 0013026C S WM_ACTIVATEAPP fActive:False dwThreadID:00000B64
<00016> 0013026C R WM_ACTIVATEAPP

Прекрасно видно, что после того, как главное окно получило WM_ACTIVATE, оно ставит фокус именно на себя, и уже в своем обработчике WM_SETFOCUS вызывает SetFocus на дочернее (что следует, хотя бы, из немедленного появления WM_KILLFOCUS). Т.е. сообщения обрабатываются каждое в своем месте. Кроме того, не стоит забывать, к каким грустным последствиям в VCL или MFC приводит попытка передать фокус несуществующему/невидимому/отключенному окну при отсутствии должной обработки исключений, почему неплохо всякий вызов SetFocus и подобных предварять группой из IsWindow, IsWindowVisible IsWindowEnabled и проверкой существования самого объекта (RichEdit1 в данном топике).

[Stilet]

Может оно и так да только попробуй в Делфи определи для формы обработчик WM_SETFOCUS и убедись что он не сработает. Поэтому если работа идет с VCL то тут WM_ACTIVATE (OnActivate) или WM_ACTIVEAPP что еще эффективнее т.е.:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, AppEvnts;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    procedure ApplicationEvents1Activate(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }


procedure TForm1.ApplicationEvents1Activate(Sender: TObject);
begin
Memo1.SetFocus
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnActivate:=ApplicationEvents1Activate;
end;

end.

[B_N]

Сообщение от Stilet

Может оно и так да только попробуй в Делфи определи для формы обработчик WM_SETFOCUS и убедись что он не сработает. Поэтому если работа идет с VCL то тут WM_ACTIVATE (OnActivate) или WM_ACTIVEAPP что еще эффективнее т.е.:

Почему не сработает? А куда же пойдет WM_SETFOCUS? Просто 0 вернется? А если прямо в оконной процедуре? Ну может быть это уже приколы Дельфи, в любом случае, куда-то же должен приходить WM_SETFOCUS, просто посланный главному окну "со-стороны".... И как не крути, делать это в RichEdit1Change как-то "неосторожно"...