Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

не активный контрол [D7, XP]

redlord © (2006-11-12 13:58:00)
всем привет
нард подскажите почему так происходити как с этим боротся.
основная ворма приложения 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;

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

MikePetrichenko (2006-11-12 17:38:00) [2]

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

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

redlord (2006-11-12 17:30:00) [3]
BorderStyle := bsNone; + panel в качестве подложки, весьма подходит.

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

KilkennyCat (2006-11-12 17:03:00) [4]
Неисповедимы пути программиста....

MikePetrichenko (2006-11-12 17:01:00) [5]
Попробуй последнее. Кусок кода взят из 100% рабочего приложения (там только формы создавались на TTabSheet).

redlord (2006-11-12 16:56:00) [6]
сначала было написано клиент серверное приложение чат.
потом было написано приложение некой логической игры .
потом появилась идея объединить ети два приложения в
одно целое чтоб клиент чата мог обеспечивать возможность
играть по сети .
форму которую я пытаюсь спрятать ето форма чата
на ее место встает форма с игрой .

MikePetrichenko (2006-11-12 16:56:00) [7]
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. Здесь в качестве примера форма помещается на панель, которая лежит на главной форме.

KilkennyCat (2006-11-12 16:51:00) [8]
> [10] Ketmar © (12.11.06 16:46)

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

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

KilkennyCat (2006-11-12 16:43:00) [10]
> [8] Ketmar © (12.11.06 16:24)

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

Ketmar (2006-11-12 16:24:00) [11]
а зачем полнастью нивидимая мди-форма нужна я нипанимаю паясни можыт атветим тагда

redlord (2006-11-12 16:18:00) [12]
а как форму в режиме
my.formstyle:= fsmdichild
зделать полностью невидимой
команда my.visible:=false; не прокатывает
(происходит ошибка с текстом mdichild не возможно спрятать)

KilkennyCat (2006-11-12 16:11:00) [13]
значит, очипка не тута.

redlord (2006-11-12 15:46:00) [14]
to kilkennycat
end; my.show или my.show; end;
главное суть понятна ))))

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

KilkennyCat (2006-11-12 15:23:00) [15]
> [3] MikePetrichenko © (12.11.06 15:18)

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

MikePetrichenko (2006-11-12 15:18:00) [16]

> 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

Leonid Troyanovsky (2006-11-12 14:55:00) [17]

> redlord (12.11.06 13:58)

RTFM: TFrame.

--
Regards, LVT.

KilkennyCat (2006-11-12 14:42:00) [18]
как-то это выглядит жутковато...
зачем = true?
где show?
parent не лишний ли?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »