Einzelnen Beitrag anzeigen

nahpets
(Gast)

n/a Beiträge
 
#2

AW: TDataSet.Refresh erweitern

  Alt 12. Dez 2015, 13:00
Bin mir nicht sicher, aber Du meinst doch sowas:
Delphi-Quellcode:
unit DataSetTest;

interface

uses
  SysUtils, Classes, DB;

type
  tDataSetTest = class(TDataSet)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    procedure Refresh;
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('WoAuchImmer', [tDataSetTest]);
end;

procedure tDataSetTest.Refresh;
begin
  if 1 = 2 then exit; // latürnich eine sinnvolle Bedingung ;-)
  inherited;
end;

end.
Delphi 7 kompiliert das und installiert die Komponente anstandslos.
  Mit Zitat antworten Zitat