Delphi-Quellcode:
if Sender = BtnExecToTab
then
begin
ShowMessage(Owner.ClassName);
ShowMessage(Owner.Owner.ClassName);
// Frame := ((Owner as TSynPage).Owner as DbExplorerMain).CreateFrame; // hier der Fehler
// Frame.MemoSQL.Lines.Text := U2S(SQL);
end;
Was steht denn in den MessageBoxen, wenn du dir das obige mal ausgeben lässt?