Unit-Name 'Windows' kann nicht aufgelöst werden

[Flo.Hoe]

Ich versuch mich gerade daran verschiedene Formen miteinander zu verknüpfen.
Jetzt taucht aber ein Fehler auf:

Unit-Name 'Windows' kann nicht aufgelöst werden.

Das Programm lässt sich trotzdem starten, jedoch funktionieren dann etliche Ereignisse nicht mehr (zB: onKeyPress, OnMouseDown).

Weiß jemand woran das liegt?

[Stefan92]

Hey,

kannst du evtl. Code posten.
Oder Details?

Gruß

Stefan

[mkinzler]

Existiert Windows.dcu im Lib-Ordner?

[Flo.Hoe]

Die Datei existiert und in anderen Anwendungen funktioniert auch alles einwandfrei.
Außerdem wurde nach einem Neustart keine Fehlermeldung mehr angezeigt.
Einige Ereignisse funzen aber immer noch nicht.



Hier der Quelltext

Delphi-Quellcode:

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls,u1,u2,u3,u4, u5, StdCtrls;

type
  TMainForm = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;

      procedure FormCreate(Sender: TObject);
      Procedure ...;
      procedure Image1Click(Sender: TObject);
      Procedure ...;
      procedure Button1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }

  end;

var
  MainForm: TMainForm;

implementation



{$R *.dfm}


procedure TMainForm.FormCreate(Sender: TObject);
begin
    ...
end;



procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  close ;  //funktioniert nicht
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
...
end;

Procedure TMainForm. ...;
begin
...
end;



procedure TMainForm.Image1Click(Sender: TObject);
begin
...
end;



Procedure TMainForm.  ...;
begin
...
end;



end.

und die zweite Form

Delphi-Quellcode:

unit uFMenue;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFMenue = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FMenue: TFMenue;

implementation
 uses Mainunit;
{$R *.dfm}

end.

[mkinzler]

close ; //funktioniert nicht Versuchs mal mit .Hide

[Mackhack]

Versuch mal auf
- Tools/Optionen zu gehen.
- Dann auf Library - Win32.
- Dann mit OK das Fenster schliessen.

Nun sollte alles wieder gehen. Frag mich nicht woran das liegt, aber mein BDS kann auch staendig die Namespaces nicht aufloesen.

[Flo.Hoe]

Unter
Namespae-Präfixe ist gar kein Verzeichnis angegeben.
Muss dort eines stehen.


@ mkinzler

Ich kann auch andere Befehle eingeben ,aber keiner wird aufgerufen

[Mackhack]

Versuch doch mal was ich grad aufgeschrieben habe!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[Flo.Hoe]

Das hab ich doch schon gemacht - die Fehlermeldung ist weg, aber die Ereignisse sind immer noch deaktiviert.

[mkinzler]

Liegt vielleicht eine andere Version der Unit einer älteren Delphiversion im Pfad?