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

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

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

про форму и UDP

dreddd © (2003-03-05 21:43:00)

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;

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

Kladov (2003-03-10 09:38:00) [1]

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

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

SPeller (2003-03-10 06:25:00) [2]

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

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

centronix (2003-03-10 02:16:00) [3]

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

Kladov (2003-03-09 15:01:00) [4]

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

SPeller (2003-03-09 13:33:00) [5]

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

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

Kladov (2003-03-09 12:24:00) [6]

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

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

SPeller (2003-03-08 18:07:00) [7]

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

Kladov (2003-03-08 13:42:00) [8]

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

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

SPeller (2003-03-08 13:36:00) [9]

2 Kladov

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

Kladov (2003-03-07 22:17:00) [10]

> 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.

Boguslaw (2003-03-07 19:18:00) [11]

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-06 21:27:00) [12]

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

dreddd (2003-03-06 20:21:00) [13]

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

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

SPeller (2003-03-06 18:11:00) [14]

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

dreddd (2003-03-06 17:17:00) [15]

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

SPeller (2003-03-06 04:26:00) [16]

procedure ClickElemet( Sender: PControl );

Наверх

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