Incompatible types: 'TMouseButton' and 'TGLMouseButton'

[Pyr0cracker]

Hi,
ich habe ein kleines Problem und hänge da gedanklich gerade fest...

Ich habe folgende Procedur:

Delphi-Quellcode:

procedure TSpiel.GLSceneViewer_SpielMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  //Konsole.Visible:= not Konsole.visible;
   case iModus of
       0:begin
        if Button = mbLeft then {linke maustaste}
        begin
[...]

Button bezieht sich auf TMouseButton in Controls.pas.
mbLeft ist leider erneut in GLCrossPlatform.pas unter TGLMouseButton (GLScene) definiert.

Zitat:

[Error] formSpiel.pas(169): Incompatible types: 'TMouseButton' and 'TGLMouseButton'

Gibts da eine Möglichkeit zu definieren, dass mbLeft aus Controls 'benutzt' wird?

Gruß,
Dorian

[Dunkel]

Hallo!

Zitat von Pyr0cracker:

Gibts da eine Möglichkeit zu definieren, dass mbLeft aus Controls 'benutzt' wird?

Setz einfach die entsprechende Unit vor den Bezeichner, in etwa so:

Delphi-Quellcode:

  if Button = Controls.mbLeft then {linke maustaste}
    { .. }

[Pyr0cracker]

Das hab ich schon versucht:

Zitat:

[Error] formSpiel.pas(169): '[' expected but '.' found

[Hawkeye219]

Hallo Dorian,

beim Versuch, eine Namensüberdeckung zu umgehen, bist du wahrscheinlich über die nächste gestolpert. Controls[] ist ein Array in TWinControl, das alle Controls enthält, die das WinControl als Parent haben.

Du könntest zunächst versuchen, die Reihenfolge der betroffenen Units (Controls und GLCrossPlatform) in der USES-Anweisung zu ändern. Möglicherweise führt diese Maßnahme aber zu anderen Fehlermeldungen.

Eine Lösung deines Problems könnte dann darin bestehen, außerhalb(!) der Methoden eine Konstante zu definieren und diese in der Methode zu verwenden:

Delphi-Quellcode:

const
  mb_Left = Controls.mbLeft;
  
procedure TSpiel.GLSceneViewer_SpielMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  //Konsole.Visible:= not Konsole.visible;
   case iModus of
      0:begin
        if Button = mb_Left then {linke maustaste}
        begin
[...]

Gruß Hawkeye

[Pyr0cracker]

Danke Hawkeye, das war die Lösung.

Gruß,
Dorian