Hallo,
ich verwende ein Basisformular, das ich der Objektablage hinzugefügt habe. Von dem Formular habe ich einige neue Formulare abgeleitet, das funktioniert soweit wunderbar.
Jetzt wollte ich in meinem Basisformular zwei published Properties vom Typ procedure of object einführen, die werden aber im Object Inspector unter den Ereignissen nicht angezeigt. Was könnte da falsch sein?
Delphi-Quellcode:
type
proc = procedure of object;
SatzMode = (modeShow,modeNew,modeCopy,modeEdit);
TfrmSatz = class(TForm)
Panel1: TPanel;
bbOk: TBitBtn;
bbAbort: TBitBtn;
procedure bbAbortClick(Sender: TObject);
procedure bbOkClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
FGetspecial, FSetSpecial: proc;
FId: integer; // id des aktuellen Datensatzes, bei Neueingabe 0
protected
FMode: sSatzMode;
FAlleSpalten: TStrings; //
FFrom: String; //
function GetData: boolean;
public
constructor create (AOwner: TComponent; AMode: SatzMode; AId: integer;
ASpalten: TStrings; AFrom: String); reintroduce;
property Mode: SatzMode read FMode;
published
property GetSpecial: proc read FGetSpecial write FGetSpecial;
property SetSpecial: proc read FSetSpecial write FSetSpecial;
end;
edit:
Ich habe mich jetzt noch ein bißchen gespielt - gar keine von meinen Properties werden angezeigt, ich habe jetzt noch eine integer Property "test" hinzugefügt, auch die gibt es im Object Inspector nicht. Aber Objekte, die ich im Formulardesigner hinzufüge, erscheinen richtig in allen abgeleiteten Formularen.