AOwner difers from Self
Original Reporter info from Mantis: >8<
-
Reporter name: Bug Import
Original Reporter info from Mantis: >8<
- Reporter name: Bug Import
Description:
When I change Self to AOwner, the program
crashes:
constructor TForm1.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
// ObjName:Form1 ClassName:TForm1
// Made by DFM To Pas V0.4
// MainMenu1:TMainMenu;
// File1:TMenuItem;
// Quit1:TMenuItem;
Left := 288;
Top := 264;
Width := 381;
Height := 392;
Caption := 'Form1';
//MainMenu1:=TMainMenu.Create(AOwner);
MainMenu1:=TMainMenu.Create(Self);
with MainMenu1 do
begin
// File1:=TMenuItem.Create(AOwner);
File1:=TMenuItem.Create(Self);
with File1 do
begin
Caption := 'File';
// Quit1:=TMenuItem.Create(AOwner);
Quit1:=TMenuItem.Create(Self);
with Quit1 do
begin
Caption := 'Quit';
File1.Add(Quit1);
end;
MainMenu1.Items.Add(File1);
end;
Menu:=MainMenu1;
end;
Additional information:
Imported information
--------------------
Name: João Schuler
Mail: jpss (at) schulers.com
Mantis conversion info:
- Mantis ID: 44