Delphi 7 inheritance
- by Gene
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