Spirit's Home

好像有一句话这么说：真正的程序员用c，聪明的程序员用Delph。受了这句话的启发，这段时间在自学delphi，准备当个聪明的程序员^_^ 。

今天下午没课，就用delphi编了一个小程序，很简单的入门小程序，就是定义2个按钮，利用onmousemove事件让按钮隐藏、可见。高手不要见笑哟。

程序源码如下：

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
button2.Hide;
button3.Show;
end;

procedure TForm1.Button3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
button3.Hide;
button2.Show;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
button2.Show;button3.Hide;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

application.MessageBox('哈哈...我早就知道了。','好吗？',mb_okcancel);
end;
其中倒数第二行的application.Messagebox(....)  可用showmessage('哈哈...我早就知道了。') ;  替换。
 

运行界面如下：

呵呵，由于本人不会制作ico，只好借用qq中的一个ico了。:-)程序我上传到博客了，有兴趣的话可以下载看看。点此下载