Einzelnen Beitrag anzeigen

egal

Registriert seit: 14. Jul 2004
190 Beiträge
 
Delphi XE4 Professional
 
#1

Auf andere Klasse zugreifen

  Alt 23. Mär 2005, 15:38
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;
  Mit Zitat antworten Zitat