2011 年 5月 21 日随笔档案 - 问题123

TSringGrid用法（转）

摘要：今天在书上看到了StringGrid的使用，写的例子很少，以前在做毕业设计时我也使用过这个控件，不过现在都很久没有使用这个控件了，所以都有点生疏了；其实一直以来我经常光顾的一个学习delphi的网站就是万一老师的博客http://del.cnblogs.com/，里面的资料很很多，受益匪浅！今天特地又从网上找了找了点关于StringGrid的用法，并做下统计如下：在程序设计语言中，二维数组必须先定义后使用，所谓先定义就是要确定二维数组的行数与列数及其数据类型。同样StringGrid组件在使用前也应定义其行数与列数，行数和列数分别用RowCount与ColCount属性动态确定。所以下面先介阅读全文

posted @ 2011-05-21 21:17 问题123 阅读(1038) 评论(0) 推荐(0)

画图学习[3] 贝塞尔曲线

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) btn1: TButton; btn2: TButton; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); private { Private declarations } public { Public 阅读全文

posted @ 2011-05-21 15:59 问题123 阅读(383) 评论(0) 推荐(0)

画图学习 [2]

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) btn1: TButton; pnl1: TPanel; pb1: TPaintBox; procedure btn1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private decla 阅读全文

posted @ 2011-05-21 15:17 问题123 阅读(206) 评论(0) 推荐(0)

画方形圆形等[1]

摘要： procedure TForm1.btn1Click(Sender: TObject);begin Canvas.Pen.Color := clRed; Canvas.Pen.Width := 2; Canvas.MoveTo(0, 0); Canvas.LineTo(ClientWidth, ClientHeight);end;procedure TForm1.btn2Click(Sender: TObject);begin Canvas.Brush.Color := clYellow; Canvas.FillRect(ClientRect);end;unit Unit1;interface 阅读全文

posted @ 2011-05-21 12:56 问题123 阅读(365) 评论(0) 推荐(0)

2011年5月21日