WWW.ИСХОДНИКИ.РУ cpp.sources.ru
java.sources.ru web.sources.ru soft.sources.ru
jdbc.sources.ru asp.sources.ru api.sources.ru

  Форум на исходниках
  Pascal
  Turbo Vision для тех кто еще помнит

СПРОСИТЬ  ОТВЕТИТЬ
профайл | регистрация | faq

Автор Тема:   Turbo Vision для тех кто еще помнит
Chal опубликован 22-01-2002 21:41 MSK   Click Here to See the Profile for Chal   Click Here to Email Chal  
На Desktop есть несколько экземпляров TEditWindow. Как узнать какой из них активен? И можно ли взять поинтер на активное окно ?
dnn опубликован 23-01-2002 15:52 MSK     Click Here to See the Profile for dnn  Click Here to Email dnn     
function IsTileable(P: PView): Boolean; far;
begin
IsTileable := P^.Options and ofTileable <> 0;
end;

Desktop^.FirstThat(@IsTileable) ?

Оно?

alex_topaz опубликован 29-01-2002 11:43 MSK     Click Here to See the Profile for alex_topaz  Click Here to Email alex_topaz     
Вообще-то Desktop^.Current всегда показывает на активное окно...
gar_radik опубликован 02-02-2002 20:30 MSK     Click Here to See the Profile for gar_radik  Click Here to Email gar_radik     
А узнать что за окно можно так:
if TypeOf(Desktop^.Current^)=
TypeOf(TEditWindow) then ...

СПРОСИТЬ  ОТВЕТИТЬ
Перейти:


E-mail | WWW.ИСХОДНИКИ.RU

Powered by: Ultimate Bulletin Board, Freeware Version 5.10a
Purchase our Licensed Version- which adds many more features!
© Infopop Corporation (formerly Madrona Park, Inc.), 1998 - 2000.