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