Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.04.2010, 18:42   #1
Helle
 
Регистрация: 02.04.2010
Сообщений: 2
По умолчанию Создание окна в Turbo Vision

Здравствуйте.
Подскажите, пожалуйста, как создать и открыть новое окно в программе на Turbo Pascal с использованием Turbo Vision? Я делаю

так:

type
PMyWindow = ^TMyWindow;
TMyWindow = object (TWindow)
constructor Init(Bounds: TRect; WinTitle: String; WindowNo: Integer);
end;

type
TMyAppl = object (TApplication)
FilmsList: PCollection;
constructor Init;
procedure InitStatusLine; virtual;
procedure InitMenuBar; virtual;
procedure NewWindow; virtual;
procedure HandleEvent (var Event: TEvent); virtual;
end;

procedure TMyAppl.InitStatusLine;
var R: TRect;
begin
GetExtent (R);
R.A.Y:=R.B.Y - 1;
StatusLine:=New(PStatusLine,Init(R,
NewStatusDef(0,$FFFF,
NewStatusKey('~Alt-X~ Exit',kbAltX,cmQuit,
NewStatusKey('~F4~ New',kbF4,cmNewWin,
nil)),
nil)
));
end;

procedure TMyAppl.NewWindow;
var
Window: PMyWindow;
R: TRect;
begin
Inc(WinCount);
R.Assign(0,0,20,7);
Window:=New(PMyWindow,Init(R,'Demo Window',WinCount));
DeskTop^.Insert(Window);
end;

procedure TMyAppl.HandleEvent(var Event: TEvent);
begin
Inherited HandleEvent(Event);
if Event.What = evCommand then
begin
case Event.Command of
cmNewWin: NewWindow;
else Exit;
end;
ClearEvent(Event);
end;
end;

Ни при нажатии на пункт New в строке состояния, ни при нажатии клавиши F4, ни при нажатии пункта меню New в строке меню

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
создание окна средствами API!! LovePower Общие вопросы C/C++ 2 07.03.2010 21:29
Turbo Vision Maxxx 83 Паскаль, Turbo Pascal, PascalABC.NET 2 07.07.2009 19:58
Создание цветного окна на экране Pecherni Общие вопросы C/C++ 0 11.04.2009 20:20
Что такое Turbo vision Иллидан Паскаль, Turbo Pascal, PascalABC.NET 4 20.01.2008 20:25