Эмуляция фокуса на внутренней форме

← →
Strumpf © (2002-11-04 22:05) [0]

На Form находится Panel1. В Form1.FormCreate:
Form2 := TForm.Create(Form1); Form2.Parent := Panel1; Form2.Show;
Как сделать так, чтобы фокус передавался (или эмулировался) на Form2?

← →
down (2002-11-04 22:19) [1]

Form2.SetFocus не помогает?

← →
Strumpf © (2002-11-04 22:31) [2]

>down (04.11.02 22:19)

Не помогает :((. Дело в том, что у Form1 фокус остается в любом случае (я так думаю).

← →
down (2002-11-04 22:33) [3]

А если в OnShow для Form2 написать?

← →
Strumpf © (2002-11-04 22:41) [4]

>down (04.11.02 22:33)

Не помогает. Мне, собственно, нужно проэмулировать MDI-режим.

← →
down (2002-11-04 23:10) [5]

Можно установить фокус на какой-нибудь управляющий элемент Form2 в OnShow, а вообще, конечно, странные забавы.

← →
Lexa1900 (2002-11-04 23:15) [6]

Мона ещё так

var h:hwnd;
begin
h:=FindWindow("TForm2",nil); {вместо nil можно написать кэпшн программы, что более надёжно, пр: h:=FindWindow(nil,"Моя прога"); }
SetActiveWindow(h);

end;

← →
Strumpf © (2002-11-04 23:17) [7]

> down (04.11.02 23:10)
Да всё очень просто. Есть основная форма - главная. И несколько форм, распологающихся внутри какого-либо элемента на главной форме (например, панели) - рабочей области. Эти формы создаются программно и любая из них может стать активной. Чтобы визуально было видно - какая именно и нужно проэмулировать на ней фокус ввода. Можно, конечно, вручную отрисовать полосу захвата, но это - крайний случай. Существует возможность этих действий для MDI. Но нужно, чтобы все окна находились именно на рабочей области. А через MDI это нереализуемо...

← →
Alex4444444444 (2002-11-04 23:27) [8]

SetForegroundWindow ne pomogaet?

← →
Strumpf © (2002-11-04 23:36) [9]

> Alex4444444444 (04.11.02 23:27)

Нет.

← →
Alex4444444444 (2002-11-04 23:45) [10]

Nu, togda, navernoe, WM_NCPAINT ... A nuzhno li ih delat" formami? Mozhet, prosto TCustomControl s TPainBox sverhu? K stati, pardon za moj russkij :), chto takoe rabochaya oblast"? Client area?

← →
Strumpf © (2002-11-04 23:51) [11]

> Alex4444444444 (04.11.02 23:45)
Рабочая область - условное название элемента внутри главной формы. Не более того. У меня - TPanel. В некоторых программах сделано, судя по всему, именно формами, причем MDI-стиль (??).

← →
Alex4444444444 (2002-11-05 00:13) [12]

Ya, chestno govorya, ne proboval, no, mozhet, override
TPanel.CreateParams i vtavit" v style, chto eto---MIDI parent?
(Ne pomnyu, kuda tochno, posmotrite help na CreateWindowEx). No, problema v tom, chto v Delphi vse peredelano (per annus), i chto-nibud" mozhet ne srabotat".

← →
Strumpf © (2002-11-05 14:48) [13]

Кто-нибудь ещё что-нибудь посоветует стОящее?

← →
Song © (2002-11-05 14:50) [14]

Поставьте Application.ShowMainForm:=False
а форму2 отройте самостоятельно.

← →
Strumpf © (2002-11-05 14:54) [15]

> Song © (05.11.02 14:50)
В этом случае не будет видно ни главной, ни второй форм :)

← →
Song © (2002-11-05 15:00) [16]

Ну тогда поменняйте главную форму в установках проекта на форму2 или поставьте вторую форму создаваться в dpr последней, что одно и тоже.

← →
Strumpf © (2002-11-05 15:04) [17]

Ну вот у меня это работает:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Hide;
Form2.Show;
end;

У Вас нет? Или я опять что-то не понял?

> Song © (05.11.02 15:13)
void __fastcall TForm1::FormCreate(TObject *Sender) { Form = new TForm(this); Form->Parent = Panel1; } void __fastcall TForm1::Button1Click(TObject *Sender) { Form1->Hide(); Form->Show(); }
При нажатии на баттон - всё исчезает с экрана :(((

А почему у формы парент - панель?

Tframe попробуй. По крайней мере глянь реализацию

А почему вместо того, чтобы "уматерять" форму панелью, просто не обрабатывать событие формы на ее перемещении, сравнивая ее координаты с координатами - границами (в данном случае панели) ?

>MsGuns © (05.11.02 16:42)

Можно, конечно. Но при этом код будет сильно раздут (и, на мой взгляд, совсем необоснованно), т.к. задача состоит в том, чтобы при приближении границы перемещаемой формы к границе панели нужно сделать так, чтобы это форма "заплывала" под край панели (что, собственно, и происходит при "уматерении").

Эмуляция фокуса на внутренней форме Найти похожие ветки