[lazarus] New Bug Entered
mhess at miraclec.com
mhess at miraclec.com
Thu Jun 14 13:32:53 EDT 2001
Title: AOwner difers from Self
Entered by: João Schuler
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;
More information about the Lazarus
mailing list