Einzelnen Beitrag anzeigen

Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#4

Re: Incompatible types: 'TMouseButton' and 'TGLMouseButton'

  Alt 11. Aug 2008, 21:46
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
  Mit Zitat antworten Zitat