Class TButton not found

[felix96]

Immer wenn Ich Form4 erstelle, und dann F9 drücke wird das Programm anstandslos Übersetzt.
Jetzt kommt aber die Windows Fehlermeldung: Class TButton not found.
Dannach wird das Programm Beendet.

Hie der Quelcode von Unit4:

Code: Alles auswählen

unit Unit5; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, ExtCtrls;
 
type
 
  { TForm5 }
 
  TForm5 = class(TForm)
    Edit1: TEdit;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Memo1: TMemo;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form5: TForm5; 
 
implementation
 
{ TForm5 }
 
procedure TForm5.FormCreate(Sender: TObject);
begin
  memo1.Clear;
  memo1.Text := ('So das übliche bla bla, weiteres unter' +#13 +'www...');     ///////////////////////////
  if not fileexists ('C:\Dokumente und Einstellungen\All Users\Startmenü\Programme') then begin
   radiobutton2.checked := true;
   radiobutton2.enabled := false; end else radiobutton1.checked := true;
  end;
 
initialization
  {$I unit5.lrs}
 
end.

[Hitman]

irgendwas haut da nicht hin ...
unit Unit4 ... type TForm4 ...

aber dann:
var
form5: tform5

und {$i unit5.lrs} .... das passt alles nicht zusammen

[felix96]

OK, Unit4 habe Ich Aus dem oben Beschriebenen Grund Gelöscht, jetzt ist das Original da.

[felix96]

Kann mir einer bitte mal erklären was das hier ist ?
http://mail.jabber.org/pipermail/exodus/2003-June/000181.html

[theo]

Kann mir einer bitte mal erklären was das hier ist ?
http://mail.jabber.org/pipermail/exodus/2003-June/000181.html

Hat das was mit Lazarus zu tun?

Die Meldung kommt, wenn man z.B. Buttons in ein Formular einfügt, während der Quellcode nicht compilerbar ist.
Dann steht der Button zwar im Formular (lfm) aber nicht in der Unit (pas) und es kommt zur Laufzeit zur o.g. Meldung.
Das passiert eigentlich nur, wenn man schludert.

[felix96]

Hier findet man auch viel:
http://www.google.de/search?hl=de&client=firefox-a&rls=org.mozilla%3Ade%3Aofficial&hs=6O&q=%22class+tbutton+not+found%22&btnG=Suche&meta=&aq=f&oq=
was Ich aber nicht verstehe.

[theo]

Nicht begriffen was ich meinte?

Wenn du z.B. diesen Code hast (leere Form mit einem Fehler im Code. Siehe "initializatio"):

Code: Alles auswählen

unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
initializatio
  {$I unit1.lrs}
 
end.

Wenn du jetzt einen Button auf die Form pappst, wird er nur im lfm aber nicht in der Unit eingetragen.

Code: Alles auswählen

object Form1: TForm1
  Left = 469
  Height = 300
  Top = 173
  Width = 400
  Caption = 'Form1'
  ClientHeight = 300
  ClientWidth = 400
  LCLVersion = '0.9.29'
  object Button1: TButton
    Left = 120
    Height = 25
    Top = 208
    Width = 75
    Caption = 'Button1'
    TabOrder = 0
  end
end

Im Code müsste jetzt eig. zus.

Code: Alles auswählen

Button1: TButton;

stehen. Tut aber nicht, weil der Code beim Einfügen "kaputt" war.

Das führt beim Ausführen zur o.g. Meldung, auch wenn der Fehler bei "initialization" behoben wurde.
Die Meldung bedeutet also, dass du auf dem Formular ein Objekt hast, welches im Code keine Entsprechung findet.
Also nachdeklarieren oder löschen und wieder einfügen.

[felix96]

SUPER, DANKE