формы

← →
lamachok (2003-01-06 03:27) [0]

вот пишу
[code]
w2 := NewForm( Applet, "form" );
w2.Style:= WS_BORDER or WS_SYSMENU or WS_VISIBLE;;
w2.CenterOnParent;
w2.Height:=200;
w2.Width:=300;
w2.Color:=clred;
{$IFDEF TEST_SHOWMODAL}
w2.ShowModal;
w2.Free;
{$ELSE}
w2.OnClose:=TOnEventAccept(Makemethod(nil,@Close2));
w2.Show;
{$ENDIF}
end;
[/code]
все ok, но если переписать код так
[code]
w2 := NewForm( Applet, "form" );
w2.Style:= WS_BORDER or WS_SYSMENU or WS_VISIBLE;;
w2.CenterOnParent;
w2.Height:=200;
w2.Width:=300;
w2.Color:=clred;
w2.ShowModal;
w2.Free;
w2.OnClose:=TOnEventAccept(Makemethod(nil,@Close2));
w2.Show;
end;
[/code]
то ошибки и ничего неработает .... дак скажите мне
идиоту ПОЧЕМУ??(w2 - 2 форма )

← →
Kair (2003-01-06 04:53) [1]

Надо убрать из кода
w2.Free;

← →
lamachok (2003-01-06 23:49) [2]

... вот еще хочу сросить ... надо создать
форму, т.е. показать ее а после того как она появиться
вызвать нужную процедуру в которой сделано типа
таймера...
.... var w:pcontrol; procedure blin; begin sleep(100000); end; ..... begin w:=newform(applet,"2222"); blin; run(w); end.
если сделать так то вначале запускается blin а потом форма...а надо
чтобы форма а потом blin ... короче как обработать OnActivate ...???

← →
tamerlan311 © (2003-01-07 11:05) [3]

{$IFDEF TEST_SHOWMODAL} //это будет компилироваться если перед будет {$DEFINE TEST_SHOWMODAL}
w2.ShowModal;
w2.Free; {$ELSE} // а это если этой директивы нет!
w2.OnClose:=TOnEventAccept(Makemethod(nil,@Close2)); w2.Show; {$ENDIF}
Это своеобразный скрипт компилятора, изучив его можно написать код который в зависимости от конкретных ныужд будет компилироваться по разному!

вопрос 2:
onformactivate !!

← →
lamachok (2003-01-07 21:59) [4]

2tamerlan311 ©
> вопрос 2:
> onformactivate !!

у меня нет такого обработчика

← →
lamachok (2003-01-10 00:52) [5]

скажите есть ли в kol у label, button - hint и если есть как использовать?????????

← →
lamachok (2003-01-12 00:18) [6]

???

← →
Bartov (2003-01-12 02:04) [7]

Хе-хе, нету!!! И не будет!!!

← →
lamachok (2003-01-12 04:35) [8]

а че так ... тогды можно какнить по другому

← →
Kladov (2003-01-12 18:57) [9]

Посмотрите пример ApiToolTips от Игоря Попова.

← →
Gandalf (2003-01-31 20:52) [10]

> hint и если есть как использовать?????????

Теперь есть Hint"s, всем желающим высылаю.

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