про форму и UDP

← →
dreddd (2003-03-05 21:43) [0]

1) почему то не могу использовать UDP компонент, регается и не делает
2) создаю в рунтайм форму на ней всякие леблы и кнопочку чтобы закрыть форму
formm:=newform(applet,acaption);
formm.Style:=WS_BORDER or WS_VISIBLE;
formm.Width:=125;
formm.Height:=100;
formm.CenterOnParent;

prompt:=newlabel(formm,aprompt);
prompt.Text:=aprompt;
prompt.Top:=5;
prompt.left:=10;
prompt.AutoSize(true);

edit:=neweditbox(formm,[eoNoHScroll]);
edit.top:=23;
edit.left:=10;
edit.Color:=clwhite;
edit.Text:=value;

okbut:=newbutton(formm,"OK");
okbut.top:=50;
okbut.left:=27;
okbut.onClick:=TOnEvent(MakeMethod(nil,@ClickElemet));
run(formm);

, присваиваю событие

procedure ClickElemet;
begin
formm.Close;
end;

и когда жму на нее вообще вся программа закрывается

← →
SPeller © (2003-03-06 04:26) [1]

procedure ClickElemet( Sender: PControl );

← →
dreddd (2003-03-06 17:17) [2]

все равно закрывается вся программа

← →
SPeller © (2003-03-06 18:11) [3]

Ну а ты как хотел?

← →
dreddd (2003-03-06 20:21) [4]

задумка такая, что программа сидит в трее
тыкаеш на иконку, выбираеш пункт из попапменю, создается форма с необходимыми кнопками, леблами
и вот эту форму надо же потом закрыть, но сама программа чтобы оставалась запущенной

вроде бы закрываю эту форму, а вылетает вся программа :(((

← →
Kladov (2003-03-06 21:27) [5]

закрыть <> скрыть

← →
Boguslaw (2003-03-07 19:18) [6]

Another problem with forms: when second form is displayed modal and then hidden the main form doesn"t get focus ....(ver 1.69)

← →
Kladov (2003-03-07 22:17) [7]

> when second form is displayed modal and then hidden

Is it hidden itself? It should be hidden after returning from its own message loop:

Form2.Form.ShowModal; Form2.Form.Hide;

This is described in FAQ.

← →
SPeller © (2003-03-08 13:36) [8]

2 Kladov

Тут уже много говорили про ShowModal, что оно глюкавит когда главная форма Disabled, что ведёт себя не стандартно. Я вот экспериментировал, и получилось что по наглядности и поведению когда показана модальная форма - лучший выход послать главной форме сообщение WM_ENABLE с False вместо выставления всем контролам свойства Enabled в False.

← →
Kladov (2003-03-08 13:42) [9]

> ShowModal, что оно глюкавит когда главная форма Disabled

Было уже исправлено. Что в 1.69 не так? Главная форма сейчас не нажимается.

← →
SPeller © (2003-03-08 18:07) [10]

> Kladov (08.03.03 13:42)
>
> > ShowModal, что оно глюкавит когда главная форма Disabled
> Было уже исправлено. Что в 1.69 не так? Главная форма сейчас
> не нажимается.
Не проверял. Ещё была такая штука что когда щёлкаешь на Disabled-форму (главную), то модальная не активизируется. Как с этим? (Не могу сейчас проверить)

← →
Kladov (2003-03-09 12:24) [11]

> когда щёлкаешь на Disabled-форму (главную), то модальная
> не активизируется. Как с этим?

Никак. Она же disabled. Значит, не может принимать сообщения мыши.

> > когда щёлкаешь на Disabled-форму (главную), то модальная
> > не активизируется. Как с этим?
>
> Никак. Она же disabled. Значит, не может принимать сообщения
> мыши.

В любой стандартной виндовой программе при щелчке на главной форме приложение активируется и, соответственно, активизируется модальная форма. В КОЛ это как-то не работает. Прекрасно работает если сделать Disabled через сообщение.

← →
Kladov (2003-03-09 15:01) [13]

Т.е. вы предлагаете F.Perform( WM_ENABLE, 0, 0 ); вместо F.Enabled := FALSE; ? Но тогда никакой модальности нет, все прочие формы доступны обычным образом.

← →
centronix (2003-03-10 02:16) [14]

>procedure ClickElemet( Sender: PControl );
а Dummy где ?

> centronix (10.03.03 02:16)
> >procedure ClickElemet( Sender: PControl );
> а Dummy где ?

Это и есть Dummy. Ну если так хотите, напишите
procedure ClickElemet( Dummy: PObj );
но правда ничего от этого не изменится.

← →
Kladov (2003-03-10 09:38) [16]

> > >procedure ClickElemet( Sender: PControl );
> > а Dummy где ?
>
> Это и есть Dummy. Ну если так хотите, напишите

вообще-то OnClick еще и Sender может быть нужен. Но если Formm глобальная, то это несущественно. Просто пишет "Закрыть", и спрашивает, почему закрывается.

про форму и UDP Найти похожие ветки