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]

Delphi-Quellcode:

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!!!!!!!!!!!!!!!!!!!!!!!!!!!! :gruebel:

[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?

[Brainshock]

Moin,

das Close im KeyPress müßte eigentlich auch so funktionieren, aber probiere mal KeyPreview des MainForm einzuschalten. Das Form erhält dann als erstes die Tastaturanschläge.

Gruß,

[Flo.Hoe]

Meine units sind alle mit delphi 2007 erstellt (daher nicht von einer älteren Version).

mit

Delphi-Quellcode:

mainForm.KeyPreview:=true

klappt es auch nicht.
Außerdem sind ja auch sämtliche Maus- Ereignisse unempfindlich.

[inherited]

Das mit dem nicht auflösen können ist denke ich was anderes,ein Bug in Delphi. Hab ich auch manchmal.
Das eigentliche Problem scheinen die Events zu sein.

[Flo.Hoe]

Ich habe meinen Fehler gefunden.
Ein sich auf der Form befindlicher Button war selektiert.
Somit hat sich das Drücken der Tasten nicht auf die Form ausgewirkt.
Aber wie kann ich für das Ereignis die Form anwählen?

[inherited]

Mit Form.Keypreview:=true

[Flo.Hoe]

Ich würde mal sagen das Tema ist beendet.
Langsam beginnt sich alles im Kreis zu drehen.

Danke für die freundlichen Unterstützungen.