delphi面向对象编程问题
我想学习面向对象编程，想做一个系统自带的“挖地雷”那个小游戏，我想把地雷定义一个类，我在单独的单元DiLei中这样定义：
unit Dilei;
interface
uses
Buttons;
type
TDiLei = class //地雷类别
private
{ Private declarations }
public
btn: TSpeedButton; {按钮}
btnLeft: Integer;{left}
btnTop: Integer;
btnWidth: Integer;
btnHeight: Integer;
constructor create(l,t: Integer);overload;
{ Public declarations }
end;
implementation
constructor TDiLei.create(l,t: Integer);
begin
Self.btn := TSpeedButton.Create(Self);
Self.btn.Width := 22;
Self.btn.Height := 22;
Self.btn.Left := l;
Self.btn.Top := t;
Self.btn.Show
end;
end.
//////////////////////////////////////////////////////////////////////////////////////
然后在窗口OnShow的时候全部创建这些地雷：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons,Dilei;
type
TForm1 = class(TForm)
procedure FormShow(Sender: T
相关问答：
我安装的是企业版。。。
我问下， CTRL+左键 能查看 windows.pas 吗？
就是 接口里的windows。
当然可以,CTRL+左键点击Interface部分的Windows就可以了
啥啥企业版？去安装目录看看lib文件夹下有没� ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
VC 控制台程序:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
我在网上找了个关于IEBHO的代码，然后按照哪个设置了，后来运行的时候出现
构建
[警告] Project2.dpr(14): File not found: 'MYbho.TLB'
[警告] Project2.dpr(16): File not found: 'MYbho.RES'
......
