Turbo PASCAL使用鼠标的方法.docx

TurboPASCAL使用鼠标的方法
TurboPASCAL是一种面向对象的编程语言，它接受高级语言，可以在计算机上运行和编译。在TurboPASCAL中，鼠标和键盘一样重要，可以很好地帮助程序员提高工作效率和质量。
使用TurboPASCAL中的鼠标分为两部分：手工控制和程序控制。在手工控制模式下，程序员可以使用鼠标来移动光标和选择文本。在程序控制模式下，程序员可以编写程序来捕获和处理鼠标事件。
对于手工控制模式，TurboPASCAL提供了几个命令，可以用鼠标代替键盘来控制光标。首先，程序员可以使用鼠标左键单击来移动光标。在移动光标时，程序员可以同时按住Shift键来选择文本。鼠标的右键和中键也可以用来选择文本，右键可以选择单个字符，中键可以选择整个文本。
除了移动光标和选择文本外，TurboPASCAL还允许程序员使用鼠标来滚动文本。这对于浏览大型文本文件非常有用。程序员可以使用鼠标滚轮或鼠标中键来实现滚动。此外，鼠标的右键单击可以弹出上下文菜单，这些菜单提供了一些有用的功能和选项。
对于程序控制模式，TurboPASCAL提供了一组函数和过程，可以用于捕获和处理鼠标事件。首先，程序员需要调用Mouse.Init函数来初始化鼠标，并使用Mouse.Show函数将鼠标指针显示在屏幕上。接下来，程序员可以编写一个事件循环，用来处理各种鼠标事件。例如，如果程序员想要在鼠标单击时执行某些操作，可以编写类似这样的代码：
```
var
Event:TEvent;
begin
repeat
Mouse.GetMouseEvent(Event);
caseEvent.Whatof
evMouseDown:
begin
caseEvent.Buttonsof
mbLeft:
begin
{执行左键单击操作}
end;
mbRight:
begin
{执行右键单击操作}
end;
end;
end;
end;
untilFalse;
end.
```
在这个代码中，程序员通过调用Mouse.GetMouseEvent函数来捕获鼠标事件。如果事件是一个evMouseDown事件，程序员就可以使用Event.Buttons属性来确定哪个鼠标按钮被单击。然后，程序员可以根据需要执行适当的操作。
总的来说，TurboPASCAL使用鼠标是很容易的。对于手工控制模式，程序员可以使用鼠标来移动光标、选择文本和滚动文本。对于程序控制模式，程序员可以编写各种函数和过程来捕获和处理鼠标事件。这些功能使得TurboPASCAL成为一种灵活、高效和易于控制的编程语言。