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

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

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

формы [Delphi, Windows]

lamachok © (2002-10-29 19:56:00)
блин может глупый вопрос но всеже ... появляется значит форма первая а затем сразу появилась вторая пишу значит
begin
w:=newform(applet,"1");
w2:=newform(applet,"2");
w2.showmodal;
run(w);
end;
без сомнения обе появляются но там где пуск появляется 2 окна... а как зделать что бы было одно .. ну как с vcl
procedure TForm1.FormActivate(Sender: TObject);
begin
w2.shomodal;
end;

lamachok (2002-10-31 15:20:00) [1]
2 blackalex че тут непонять я ж уже сказал
вызывается форма w а заней сразу же вторая как с vcl
procedure TForm1.FormActivate(Sender: TObject);
begin
w2.shomodal;//это вторая форма
end;
ну а как это реализовать на kol?????
2Alexander учту

Alexander (2002-10-30 18:47:00) [2]
Сейчас подпобно писать некогда - я про MCK предложил для примера, если уж не хочешь его использовать, то хотя бы посмотри, как там всё создаётся и сделай у себя также. Так можно значительное число вопросов снимать.

blackalex (2002-10-30 18:33:00) [3]
> w2:=newform(applet,"222222");
>w.ShowModal;

Тяжело разобраться когда части кода не хватает. Если форма w уже есть , зачем ее еще модально открывать? Напиши поподробнее , над чем ты тут бьёшься или помести сюда весь код

lamachok (2002-10-30 17:00:00) [4]
>>Я правда не совсем понял откуда вызывается процедура fist - ты >>без MCK пишешь?
Пишу на kol без mck, программа загружается и сверяет условия если одно то запускается fist, если другое вызывается другое...
>>Лучше напиши на MCK
нет только на kol

Alexander (2002-10-30 16:34:00) [5]
Можно всё гораздо проще.
Я правда не совсем понял откуда вызывается процедура fist - ты без MCK пишешь?
Лучше напиши на MCK - создай там 2 формы и посмотри, как всё реализуется (т.е. что, когда и как вызывается). Особенно обрати внимание на *.inc файлы для более полного понимания процесса.

lamachok (2002-10-30 15:56:00) [6]
2blackalex есть у меня этот пример, да там все понятно, но там форма вызывается по клику на кнопку... а мне надо что бы автоматом на старте....
2Alexander посмотрел... подумал и решил зделать так(может полностью чушь но пока я другого варианта не вижу)
procedure mousemove;
begin
if two=0 then begin
two:=3;
w2:=newform(applet,"222222");
w.ShowModal;
end;
end;
procedure fist;
begin
w:=newform(applet,"11111");
w.OnMouseMove:=tonmouse(MakeMethod( nil, @mousemove ));
run(w);
end;
поправь плиз ... потому что использую лишнюю переменую А это дополнительная память, но главное оно у меня работает вполне корректрено

blackalex (2002-10-30 15:23:00) [7]
На KOL сайте в секции Demo есть хороший примерчик ModalForm. Там хорошо показано как с модальными формами работать

Alexander (2002-10-29 20:37:00) [8]
Про то, как показывать модальные окна подробно описано в факе на сайте KOL.

Наверх

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