не активный контрол

← →
redlord (2006-11-12 13:58) [0]

всем привет
нард подскажите почему так происходити как с этим боротся.
основная ворма приложения mainform на неё а пытаюсь повесить другую форму от другого класа (Tmy создана в designtime) . новая форма создаётся но наней все контролы происходящие от класа Tedit не работают (какбудто у них включен атрибут тока для чтения )

if assigned(my) = true then exit;
my:=tmy.Create(mainform);
my.Left:=0;
my.Top:=0;
my.Parent:=mainform;
my.Enabled:=true;
my.Visible:=true;

← →
KilkennyCat © (2006-11-12 14:42) [1]

как-то это выглядит жутковато...
зачем = true?
где show?
parent не лишний ли?

← →
Leonid Troyanovsky © (2006-11-12 14:55) [2]

> redlord (12.11.06 13:58)

RTFM: TFrame.

--
Regards, LVT.

← →
MikePetrichenko © (2006-11-12 15:18) [3]

> if assigned(my) = true then exit;
> my:=tmy.Create(mainform);
> my.Left:=0;
> my.Top:=0;
> my.Parent:=mainform;
> my.Enabled:=true;
> my.Visible:=true;

if not Assigned(My) then begin My := TMy.Create(MainForm); with My do begin Left := 0; Top := 0; Parent := MainForm; end; end; My.Show;

При этом My.FormStyle = fsNormal

← →
KilkennyCat © (2006-11-12 15:23) [4]

> [3] MikePetrichenko © (12.11.06 15:18)

и если условие не выполнится, то, как пелось в песне, шоу все равно должно идти?

← →
redlord (2006-11-12 15:46) [5]

to kilkennycat
end; my.show или my.show; end;
главное суть понятна ))))

а вот пробдему это не решило tedit остался не активен
он становится активным если my.formstyle:= fsmdichild;
но fsmdichild ето совсем не то что надо

← →
KilkennyCat © (2006-11-12 16:11) [6]

значит, очипка не тута.

← →
redlord (2006-11-12 16:18) [7]

а как форму в режиме
my.formstyle:= fsmdichild
зделать полностью невидимой
команда my.visible:=false; не прокатывает
(происходит ошибка с текстом mdichild не возможно спрятать)

← →
Ketmar © (2006-11-12 16:24) [8]

а зачем полнастью нивидимая мди-форма нужна я нипанимаю паясни можыт атветим тагда

← →
KilkennyCat © (2006-11-12 16:43) [9]

> [8] Ketmar © (12.11.06 16:24)

а засем сястисно нивидемая нюна? :)

← →
Ketmar © (2006-11-12 16:46) [10]

>[9] KilkennyCat(c) 12-Nov-2006, 16:43
>а засем сястисно нивидемая нюна? :)
шобы сикретные части ат врагов прятат

← →
KilkennyCat © (2006-11-12 16:51) [11]

> [10] Ketmar © (12.11.06 16:46)

А! тяма пяроли и клюси!!!

← →
MikePetrichenko © (2006-11-12 16:56) [12]

if not Assigned(Form2) then begin Form2 := TForm2.Create(Self); with Form2 do begin Parent := Panel1; Align := alClient; BorderStyle := bsNone; BorderIcons := []; end; end; Form2.Show;

Забыл про Align и BorderStyle :)

P.S. Здесь в качестве примера форма помещается на панель, которая лежит на главной форме.

← →
redlord (2006-11-12 16:56) [13]

сначала было написано клиент серверное приложение чат.
потом было написано приложение некой логической игры .
потом появилась идея объединить ети два приложения в
одно целое чтоб клиент чата мог обеспечивать возможность
играть по сети .
форму которую я пытаюсь спрятать ето форма чата
на ее место встает форма с игрой .

Попробуй последнее. Кусок кода взят из 100% рабочего приложения (там только формы создавались на TTabSheet).

Неисповедимы пути программиста....

← →
redlord (2006-11-12 17:30) [16]

BorderStyle := bsNone; + panel в качестве подложки, весьма подходит.

а вообще почему так происходит , не доходят какието виндовые мессаги ?

> а вообще почему так происходит , не доходят какието виндовые
> мессаги ?

А фиг его знает. Причем, если bsNone не ставить - не работает :)

>[13] redlord 12-Nov-2006, 16:56
>ети два приложения
не так. вот так: "ети! два приложения! ети их разъети!"

не активный контрол Найти похожие ветки