формы

← →
lamachok (2002-10-29 19:56) [0]

блин может глупый вопрос но всеже ... появляется значит форма первая а затем сразу появилась вторая пишу значит
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;

← →
Alexander © (2002-10-29 20:37) [1]

Про то, как показывать модальные окна подробно описано в факе на сайте KOL.

← →
blackalex © (2002-10-30 15:23) [2]

На KOL сайте в секции Demo есть хороший примерчик ModalForm. Там хорошо показано как с модальными формами работать

← →
lamachok (2002-10-30 15:56) [3]

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;
поправь плиз ... потому что использую лишнюю переменую А это дополнительная память, но главное оно у меня работает вполне корректрено

← →
Alexander © (2002-10-30 16:34) [4]

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

← →
lamachok (2002-10-30 17:00) [5]

>>Я правда не совсем понял откуда вызывается процедура fist - ты >>без MCK пишешь?
Пишу на kol без mck, программа загружается и сверяет условия если одно то запускается fist, если другое вызывается другое...
>>Лучше напиши на MCK
нет только на kol

> w2:=newform(applet,"222222");
>w.ShowModal;

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

Сейчас подпобно писать некогда - я про MCK предложил для примера, если уж не хочешь его использовать, то хотя бы посмотри, как там всё создаётся и сделай у себя также. Так можно значительное число вопросов снимать.

← →
lamachok (2002-10-31 15:20) [8]

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

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