Delphi 7 inheritance

Posted by Gene on Stack Overflow See other posts from Stack Overflow or by Gene
Published on 2010-03-18T11:32:39Z Indexed on 2010/03/18 12:01 UTC
Read the original article Hit count: 350

Filed under:
|
|

Have 6 forms, 1 Base and 5 inherited.The Base has the following snippet:

procedure TMechan.Open1Click(Sender: TObject);

begin

if OpenDialog1.Execute

then

Form1.Memo1.Lines.LoadFromFile(OpenDialog1.FileName );

CopyCylMemoToRecord;ShowMechanicalValues;

end;

Since this snippet is in the Base it's also inherited by 5 others. Problem is: When executing OpenDialog the Base is overwritten instead of the inherited form. HELP

© Stack Overflow or respective owner

Related posts about delphi-7

Related posts about inheritance