Delphi Frage

Chefetage · 14.07.2002, 14:36

Weiss jemand einen code wie ich in Delphi ein Formular machen kann aus dem man nicht mit der Maus rausfahren kann???

Danke
mfg Christoph

irrsinn · 16.07.2002, 09:03

ein ansatzpunkt wär auf jeden fall das onmouse ereignis vom formular. glaub das heißt so. hab leider momentan kein delphi installiert.

dann wirds irgendwie mit api funktionen weitergehn. schau dir die SDK hilfe durch. vielleicht findest da was brauchbares. möglicherweise kommt auch mir in meinem chaos am schreibtisch was derartiges unter.

mal sehn...

PredeX · 16.07.2002, 10:42

Such mal in der Hilfe nach einer window Funktion, in Pascal gibts nämlich sowas, nur bin ich mir jetzt ned sicher wie das in Delphi hinhaut... (hab nämlich momentan auch kein Delphi installiert

)

PredeX

Yoghurt · 17.07.2002, 16:04

So sollte es funktionieren (verwende das leicht abgewandelt in einem Spiel)...

procedure TForm1.LockMouse;
var
CursorClipArea : TRect;
ImageOriginInScreenCoordinates : TPoint;
begin
ImageOriginInScreenCoordinates :=
ClientToScreen( Point(Form1.Left,
Form1.Top) );

CursorClipArea := Bounds(ImageOriginInScreenCoordinates.X,
ImageOriginInScreenCoordinates.Y,
Form1.Width, Form1.Height);

Windows.ClipCursor(@CursorClipArea);
end;

procedure TForm1.UnlockMouse;
begin
Windows.ClipCursor(nil);
end;

lg Yoghurt

14.07.2002, 14:36	#1
Chefetage Veteran Registriert seit: 19.12.2000 Beiträge: 319	Delphi Frage Weiss jemand einen code wie ich in Delphi ein Formular machen kann aus dem man nicht mit der Maus rausfahren kann??? Danke mfg Christoph ____________________________________ ...Da steh ich nun ich armer Thor und bin so klug als wie zuvor... Jah RastafarI

16.07.2002, 09:03	#2
irrsinn Veteran Registriert seit: 05.04.2002 Beiträge: 331	ein ansatzpunkt wär auf jeden fall das onmouse ereignis vom formular. glaub das heißt so. hab leider momentan kein delphi installiert. dann wirds irgendwie mit api funktionen weitergehn. schau dir die SDK hilfe durch. vielleicht findest da was brauchbares. möglicherweise kommt auch mir in meinem chaos am schreibtisch was derartiges unter. mal sehn... ____________________________________ Wenn es dumm ist aber funktioniert, ist es nicht dumm!

16.07.2002, 10:42	#3
PredeX Senior Member Registriert seit: 03.09.2001 Alter: 41 Beiträge: 165	Such mal in der Hilfe nach einer window Funktion, in Pascal gibts nämlich sowas, nur bin ich mir jetzt ned sicher wie das in Delphi hinhaut... (hab nämlich momentan auch kein Delphi installiert ) PredeX ____________________________________ There are 10 types of people, those who understand binary and those who don\'t... Ask Me No Questions, And I Tell You No Lies!

17.07.2002, 16:04	#4
Yoghurt Jr. Member Registriert seit: 28.12.2000 Alter: 48 Beiträge: 49	So sollte es funktionieren (verwende das leicht abgewandelt in einem Spiel)... procedure TForm1.LockMouse; var CursorClipArea : TRect; ImageOriginInScreenCoordinates : TPoint; begin ImageOriginInScreenCoordinates := ClientToScreen( Point(Form1.Left, Form1.Top) ); CursorClipArea := Bounds(ImageOriginInScreenCoordinates.X, ImageOriginInScreenCoordinates.Y, Form1.Width, Form1.Height); Windows.ClipCursor(@CursorClipArea); end; procedure TForm1.UnlockMouse; begin Windows.ClipCursor(nil); end; lg Yoghurt

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)