Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.12.03;
Скачать: CL | DM;

Вниз

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

 
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]

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


 
MikePetrichenko ©   (2006-11-12 17:01) [14]

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


 
KilkennyCat ©   (2006-11-12 17:03) [15]

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


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

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

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


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


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

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


 
Ketmar ©   (2006-11-12 17:45) [18]

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



Страницы: 1 вся ветка

Текущий архив: 2006.12.03;
Скачать: CL | DM;

Наверх




Память: 0.51 MB
Время: 0.061 c
1-1161334225
alexvan
2006-10-20 12:50
2006.12.03
Вопрос по TCustomDBGrid


2-1163775483
lobach
2006-11-17 17:58
2006.12.03
Текстовый файл


2-1163792521
vasIzmax
2006-11-17 22:42
2006.12.03
Понятие объекта


15-1163255455
homm
2006-11-11 17:30
2006.12.03
WWW: Оцените пожалуйста проект


6-1152878872
Comrade
2006-07-14 16:07
2006.12.03
компонент IdIRC