| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

формы

lamachok ©   (2003-01-06 03:27:00) 

вот пишу
[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 форма )

---

Gandalf   (2003-01-31 20:52:00) [1]

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


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

---

Kladov   (2003-01-12 18:57:00) [2]

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

---

lamachok   (2003-01-12 04:35:00) [3]

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

---

Bartov   (2003-01-12 02:04:00) [4]

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

---

lamachok   (2003-01-12 00:18:00) [5]

???

---

lamachok   (2003-01-10 00:52:00) [6]

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

---

lamachok   (2003-01-07 21:59:00) [7]

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

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

---

tamerlan311   (2003-01-07 11:05:00) [8]

{$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-06 23:49:00) [9]

... вот еще хочу сросить ... надо создать
форму, т.е. показать ее а после того как она появиться
вызвать нужную процедуру в которой сделано типа
таймера...

....
var w:pcontrol;
procedure blin;
begin
sleep(100000);
end;
.....
begin
w:=newform(applet,"2222");
blin;
run(w);
end.

если сделать так то вначале запускается blin а потом форма...а надо
чтобы форма а потом blin ... короче как обработать OnActivate ...???

---

Kair   (2003-01-06 04:53:00) [10]

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

---

Наверх