Форум: "Начинающим";
Текущий архив: 2010.11.14;
Скачать: [xml.tar.bz2];
ВнизСоздание своей формы Найти похожие ветки
← →
подмастерье (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 вся ветка
Форум: "Начинающим";
Текущий архив: 2010.11.14;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c