Zitat:
Ich habe diesen Code, der verhindert, dass ein Formular außerhalb des Bildschirms bleibt. Wie verhindern Sie, dass Sie außerhalb eines anderen Formulars bleiben (Form2 bleibt außerhalb von Form1)?
Indem du nicht die Werte des Screen Objekts nimmst, sondern die des Formulars?
Auch getestet und nicht funktioniert.
Natürlich reicht es nicht einfach den Code zu übernehmen. wie sah denn dein Code aus?
Einfach! Wo
Screen haben, habe ich durch
Form1 ersetzt. Siehe den Code der Frage.
Ich habe diesen Code unten, um besser zu verstehen, was ich wünsche (stattdessen mit der Maus; mit Form2).
Delphi-Quellcode:
var
R: TRect;
begin
R := GetClientRect;
R.TopLeft := ClientToScreen(R.TopLeft);
R.BottomRight := ClientToScreen(R.BottomRight);
ClipCursor(@R);
ShowMessage('Versuchen Sie, die Maus außerhalb des Formular zu bewegen.');
ClipCursor(nil);
end;