Auf andere Klasse zugreifen

[egal]

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;

[sniper_w]

 Name := 'NumEdit'; Ich glaube Name Eigenschft sollte man nicht in einem Constructor festlegen, oder irgenwo anders in der Laufzeit der Anwendung.

[egal]

Zitat von sniper_w:

 Name := 'NumEdit'; Ich glaube Name Eigenschft sollte man nicht in einem Constructor festlegen, oder irgenwo anders in der Laufzeit der Anwendung.

Das spielt hier keine Rolle.

[sniper_w]

Ich würde es aber trotzem weglassen.

[Khabarakh]

Bist durch schonmal durch den Konstruktor mit dem Debugger durchgegangen? Um eine Methode ohne Instanz aufzurufen: Klassenmethoden

[egal]

hab das Problem gelöst; War, wie immer eine Kleinigkeit.

Delphi-Quellcode:

Constructor TETUKomponente.Create(AOwner: TComponent);
begin
  inherited;
  SetBounds(0,0,190,33);
  Caption := '';
  FConSpBut := TSVButton.Create(Self);
  FConSpBut.SetSubComponent(true);
  FConSpBut.Parent := self;
  FConSpBut.Left := 5;
  FConSpBut.Flat := true;
  FConSpBut.Top := 5;
  FConSpBut.Height := 25;
  FConSpBut.Width := 20;
  FConSpBut.Name := 'SBStandWert';
  FConSpBut.Glyph.LoadFromFile('VCRFSFOR.bmp');
  FConEditFeld := TNumEdit.Create(Self);
  FConEditFeld.SetSubComponent(true);
  FConEditFeld.Parent := self;
  FConEditFeld.Left := 30;
  FConEditFeld.Name := 'NumEdit';
  FConEditFeld.Top := 6;
  FConEditFeld.Height := 21;
  FConEditFeld.Width := 80;
  FConEditFeld.Max := 1000;
  FConEditFeld.Min := 0;
  FConEditFeld.StandardValue := 2;
  NumEdit := FConEditFeld;  // man musste einfach im Constructor von Oberklasse Variable         //zuweisen
end;