Tach zusammen!
Ich schreibe eine neue Komponente, da habe ich eine Oberklasse und mehrere abgeleiteten Klassen. Und jetzt die Frage, wie kann ich aus einer Klasse auf die Prozedure der anderen Klasse zugreifen. Ich habe eigentlich keine Instanzen, habe schon versucht meine Klassen zu instanzieren, aber bekomme dann Zugriffsverletzung beim Ausführen, weil beim Zugriff auf andere Klasse wird automatisch Destructor aufgerufen. Hier ist bisschen Code:
Delphi-Quellcode:
type
TNumEdit = class;
TSVButton = class;
TETUKomponente = class; // Oberklasse!
...
constructor TNumEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle + [csReplicatable];
FAlignment := taRightJustify;
FColorNormal := Color;
FColorFocus := clColorFocusDef;
FColorFontNormal := clWindowText;
FColorFontFocus := clColorFontFocusDef;
FIntegers := 12;
FDecimals := 2;
FAllowNegative := true;
FThousandSeparate := true;
Value := 0.00;
bSettingAsFloat := false;
Name := 'NumEdit';
bBer := false;
end;
destructor TNumEdit.Destroy;
begin
FCanvas.Free;
inherited Destroy;
end;
procedure TNumEdit.RefreshValue;
// FValue neu setzen; Aufruf in jeden OnChange
var
cText: string;
begin
if (bBer = true) then begin
//Value := FStandardValue;
FValue := FStandardValue;
end;
end;
procedure TSVButton.Click;
var AOwner : TComponent;
begin
inherited Click;
bBer := true;
if Assigned(FOnClick) then FOnClick(Self);
NumEdit := TNumEdit.Create(AOwner); // Zugriffsverletzung
NumEdit.RefreshValue;
{ habe versucht nicht instanzieren und TNumEdit.RefreshValue aufrufen, aber das geht nicht, muss man instanzieren}
end;