Delphi Inc () 计数用法

本文整理自网络，侵删。

 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  Inc (nClicks);
  Label1.Text := nClicks.ToString;
end;

function TForm1.GetClicks: Integer;
begin
  Result := nClicks;
end;

 

相关阅读 >>

Delphi firedac连接mysql的时候报错

Delphi 用ini记录combobox的itemindex

Delphi 读取文件获取指定字符串

Delphi access数据库 主键

Delphi将文件的内容读取为字符串

Delphi dbgrid鼠标滚屏

Delphi windows 编程[17] - 更换菜单: loadmenu、destroymenu、setmenu

Delphi中禁止webbrowser右键的方法

Delphi 实现放大效果

Delphi编程时按回车键无效，无法换行解决办法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi Inc () 计数用法