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

Создание своей формы   Найти похожие ветки 

← →
подмастерье   (2010-08-20 16:09) [0]

Здравствуйте, уважаемые Мастера!

Когда я пытаюсь создать форму класса TconvForm=class(TForm), то в строке Application.CreateForm(TconvWindow, convWindow); у меня при запуске возникает следующая ошибка:
---------------------------
Debugger Exception Notification
---------------------------
Project glContest10.exe raised exception class EResNotFound with message "Resource TAveWindow not found".
---------------------------
Break   Continue   Help  
---------------------------
При этом, если я изменяю эту строку на Application.CreateForm(TForm, convWindow); то происходит нормальный запуск, однако события, которые должны происходить OnCreate и OnClose не выполняются. Никакого визуального программирования нет, все пишу runtime.

Код project.dpr:
program glContest10;

uses
 Windows,
 uConvForms in "uConvForms.pas",

begin
 InitWindow;
end.

Содержимое юнита uConvForms.pas:
unit uConvForms;

interface

uses
 Forms, Dialogs;

procedure InitWindow;

type
 TConvWindow = class(TForm)
   procedure FormCreate(Sender: TObject);
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
 private
 public
 end;

var
 convWindow: TconvWindow;

implementation

procedure TAveWindow.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 ShowMessage("start");
end;

procedure TAveWindow.FormCreate(Sender: TObject);
begin
 ShowMessage("byebye");
end;

procedure InitWindow;
begin
 Application.Initialize;
 Application.CreateForm(TconvWindow, convWindow);
 with convWindow do begin
   ClientWidth := 800;
   ClientHeight:= 600;
   Left := Screen.Width div 2 - Width div 2;
   Top := Screen.Height div 2 - Height div 2;
 end;
 Application.Run;
end;

end.

Есть подозрение, что я совершаю где-то ну очень глупую ошибку. Заранее благодарю за помощь.

---

← →
Ega23 ©   (2010-08-20 16:15) [1]

> Есть подозрение, что я совершаю где-то ну очень глупую ошибку.
>  Заранее благодарю за помощь.


А события назначать Пушкин будет? with convWindow do begin
  ClientWidth := 800;
  ClientHeight:= 600;
  Left := Screen.Width div 2 - Width div 2;
  Top := Screen.Height div 2 - Height div 2;
  OnCreate := FormCreate;
  OnClose := FormClose;
end;

---

← →
Ega23 ©   (2010-08-20 16:17) [2]

Left := Screen.Width div 2 - Width div 2;
 Top := Screen.Height div 2 - Height div 2;

Вот это тоже замени на

convWindow.Position := poScreenCenter;

---

← →
подмастерье   (2010-08-20 16:41) [3]

Спасибо большое, Ega23, все помогло.

---

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

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



Память: 0.46 MB
Время: 0.005 c