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

Вниз

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

 
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


 
blackalex ©   (2002-10-30 18:33) [6]

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


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


 
Alexander ©   (2002-10-30 18:47) [7]

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


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

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



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

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

Наверх




Память: 0.48 MB
Время: 0.02 c
9-19941
Кен
2003-01-23 02:00
2003.07.07
Как в glscene e грузить текстуры из ресурсов ?


3-20007
Солер
2003-06-14 19:42
2003.07.07
Что за сообщение программы?


3-19959
RVL9
2003-06-11 20:46
2003.07.07
вопрос по картинкам в бд


14-20213
Maksss
2003-06-22 07:07
2003.07.07
нюк


3-19999
tramp
2003-06-11 17:22
2003.07.07
Заполнение таблицы(TADOTable) информацие из потока(TADOQuery)