Скачать: CL | DM;

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

← →
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, всем желающим высылаю.

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.028 c