Вот такое хотел сделать, выручайте:
Работает моя программа в фоне и по определенному событию создает форму и выводит ее на экран. Хотелось бы сделать так, чтобы в этот момент (при показе формы) она не получала фокуса, а юзер мог продолжать работу с прежней программой как будто ничего не произошло (т.е. прежняя программа в этот момент не теряла фокуса), а сделать окно моей программы активным он мог позже (если ему это будет нужным). Думаю понятно изложил? Помогите пожалуйста - подкиньте идею!

Form1.visible=false в OnCreate. И будет тебе щастя.

Цитата(Snowy @ 4.1.2005, 16:19)

Form1.visible=false в OnCreate

это чтобы она не была видна? А мне то надо чтобы видна была....

в событии OnShow пиши

Код

ShowWindow(MyForm.Handle,SW_SHOWNOACTIVATE)

сейчас сам попробую
Добавлено @ 16:47
получилось

Это сообщение отредактировал(а) dsergey - 4.1.2005, 16:46

Большое спасибо!!!
Вот только интересно - если ее так показывать, то закрыть ее потом крестиком нельзя. Приходится писать:

Код

procedure TMyForm.FormClose(Sender: TObject; var Action: TCloseAction); begin  Action := caFree; end;

Почему так?

можно, почему нельзя
первый клик - активация окна (получение фокуса ввода), ведь оно не активно
второй клик, если по крестику, то уже закрытие окна
попробуй

можешь установить таймер на 35 сек например.

Просто так не получается! А Вы сами пробовали?
......я уже новое приложение создал (думал в моем что-то заглючилось) с двумя формами, на первое кинул кнопку, написал:

Код

procedure TForm1.Button1Click(Sender: TObject); begin  ShowWindow(Form2.Handle,SW_SHOWNOACTIVATE); end;

- вот и весь код, в свойствах вообще ничего не трогал!

...работает отлично (за что еще раз спасибо), а вот закрыть Form2 не получается - только если написать так:

Код

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end;

в общем я на это ессесно согласен, просто интересно - почему?

А такой вариант:
Установить свойство FormStyle в fsStayOnTop.
В OnShow дать Application Minimize;
Окно неактивно, но с другим эффектом. И закрывается без проблем.
Я так делал всплывающие сообщения из буковок без фона.
И все видно, и не мешает, если вдруг текст набирал.

Это сообщение отредактировал(а) Snowy - 5.1.2005, 11:10

еще раз

событии OnShow пиши

ShowWindow(Form2.Handle,SW_SHOWNOACTIVATE)

а форму открывай как обычно

Код

procedure TForm1.BitBtn1Click(Sender: TObject); begin  form2.Show end;

Это сообщение отредактировал(а) dsergey - 5.1.2005, 11:15

А зачем же еще раз. И так всем уже все понятно. Я просто предложил еще один вариант.

Цитата

ShowWindow(MyForm.Handle,SW_SHOWNOACTIVATE)

ну зачем же так конкретно?
ShowWindow(Handle,SW_SHOWNOACTIVATE)
и все. Форма и так подразумевается, если уж это ее OnShow.

Цитата

А зачем же еще раз. И так всем уже все понятно

Dimich`у не понятно

событии OnShow формы Form2 пиши

ShowWindow(Form2.Handle,SW_SHOWNOACTIVATE)

Код

а форму открывай как обычно procedure TForm1.BitBtn1Click(Sender: TObject); begin form2.Show end;

Блин, то ли лыжи не едут, то ли я....... Короче, не получается.
Вот так я открываю вторую форму:

Код

procedure TForm1.Button1Click(Sender: TObject); begin  Form2.Show; end;

Вот что из себя предствляет вторая форма:

Код

...  TForm2 = class(TForm)    procedure MyOnShow(Sender: TObject);    procedure FormCreate(Sender: TObject);  private ... procedure TForm2.MyOnShow (Sender: TObject); begin  ShowWindow(Form2.Handle,SW_SHOWNOACTIVATE); end; procedure TForm2.FormCreate(Sender: TObject); begin  Form2.OnShow := MyOnShow; end;

Открывается и получает фокус.
Или я чего то не понял, dsergey?

З.Ы. Наверное еще от встречи Нового года не отошел.......

Если из одной формы вызываешь другую без фокуса-покуса, то так:

Код

procedure TForm1.Button1Click(Sender: TObject); begin  ShowWindow(Form2.Handle,SW_SHOWNOACTIVATE); end;

P.S. Да, забыл добавить. Это все. Никакие OnShow здесь не нужны. В OnShow нужно писать только для главной формы. Для остальных просто вместо FormX.Show юзай эту конструкцию.

Это сообщение отредактировал(а) Snowy - 6.1.2005, 09:21

Блин, ну да, конечно! Если это главная форма, то

Код

ShowWindow (Form2.Handle,SW_SHOWNOACTIVATE);

решает все проблемы....
Однако речь шла о том, что из формы1 надо вызвать(показать) форму2 и не передавать ей фокус. Вот тут засада и была! Я ее решил теперь, немного по другому:

Код

procedure TForm1.Button1Click(Sender: TObject); var  h : hwnd; begin  h := GetActiveWindow;  Form2.Show;  SetActiveWindow (h); end;

.....хотя непонятно, почему dsergey аж несколько раз повторял свой код? Ведь не работает!

а это зачем

Код

procedure TForm2.MyOnShow (Sender: TObject); begin ShowWindow(Form2.Handle,SW_SHOWNOACTIVATE); end;