Abstrakter Fehler

[Robert_G]

Zitat:

Zitat von Hansa

Zitat:

Zitat von Martin W

...Ich hab aber keine Prozedure mit "Abstract" oder sonst was versehen...

Du vielleicht nicht. Aber ist eventuell eine Fremdkomponente im Spiel ?

Würde ich auch sagen.
Du kannst die meisten Antworten hier getrost als "Im Trüben fischen" abtun. ;)
Ab du nun Release, Free oder "Frag's Pferd was auch immer" aufrufst ist doch total Bohne. Du verwendest eine Instanz einer abstrakten Klasse. Und beim Ausführen einer nicht überschriebenen Methode knallt es eben. (Was vom Autor der Klasse sicher auch so gewollt ist ;) )
Da du immer noch nicht den Inhalt deines OnClose Handlers gezeigt hast würde ich auch im Trüben fischen.
Deshalb gibt's von mir nur eine Fehlerbeschreibung. Rücke etwas Code raus und man kann dir sicher helfen. ;)

[Martin W]

So.. mal die gesamte Form wo es "knallt"

Delphi-Quellcode:

unit neues_produkt_unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, jpeg, JvGIF, ExtCtrls;

type
  Tneues_produkt_form = class(TForm)
    Image1: TImage;
    Image3: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label23: TLabel;
    Image2: TImage;
    Image4: TImage;
    Label8: TLabel;
    Label7: TLabel;
    Image7: TImage;
    Image8: TImage;
    StatusBar1: TStatusBar;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  neues_produkt_form: Tneues_produkt_form;

implementation

{$R *.dfm}

procedure Tneues_produkt_form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  self.free;
end;

procedure Tneues_produkt_form.Button1Click(Sender: TObject);
begin
  self.close;
end;

end.

Beim Klick auf Button1 knallt es dann mit der oben gennanten Fehlermeldung.

[mirage228]

Hi,

Das führt zwangsweise zu einem Abstraktem Fehler:

Delphi-Quellcode:

procedure Tneues_produkt_form.FormClose(Sender: TObject; 
  var Action: TCloseAction); 
begin 
  self.free; 
end;

Besser ist dann das:

Delphi-Quellcode:

procedure Tneues_produkt_form.FormClose(Sender: TObject; 
  var Action: TCloseAction); 
begin 
  Action := caFree;  
end;

Dann kannst Du auch Self.Close(); weglassen.

mfG
mirage228

[Martin W]

Hey, das klappt ja echt prima... aber warum führt "self.free" zwangsweise zu einem abstrakten Fehler ?!?

Danke noch mal!!!!


Gruß
martin

[teebee]

Das hättest Du früher haben können...

Warum ausgerechnet ein abstrakter Fehler auftritt weiss ich nicht (vielleicht hat ja jemand eine schlüssige Erklärung), aber prinzipiell ist es falsch, eine Komponente in einem eigenen Eventhandler freizugeben, damit zieht sie sich quasi selbst den Boden unter den Füßen weg.
Deshalb der Umweg über caFree in OnClose. In einem OnClick einer Form würdest Du Release aufrufen.

Gruß, teebee

[Martin W]

Ok, dann trotzdem noch mal danke für alle Antworten *freu*

Gruß

[sniper_w]

Zitat:

aber warum führt "self.free" zwangsweise zu einem abstrakten Fehler ?!?

Weil es ein Logik Fehler von dir war. Man sollte nie die Methode Free in einem Objekt aufrufen , damit es sich selbst "befreit". Eine Klasse wird immer von eine Andere "befreit" (oder von einem Thread), aber nicht in sich selbst.

So geht das:

Delphi-Quellcode:

var
  [b] Form1: TForm1; [/b]
  [b] Form2: TForm1; [/b]

procedure [b]TForm1[/b].Button1Click(Sender: TObject);
begin
 [b]Form2[/b].Free;
end;

Oder umgegehert.
Zwar wird es keine Exep. geben im Fall dass du so was schreibst:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 self.Free; // Oder nur Free
end;

Aber MainThread bleibt immer noch da, wird nicht beendet, weil das ganze die Logik von VCL nicht folgt.