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
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