界面的问题(100分)

  • 主题发起人 主题发起人 wbing
  • 开始时间 开始时间
W

wbing

Unregistered / Unconfirmed
GUEST, unregistred user!
我想把一个输入界面用一系列的表格线划分,就像网站上面做的比较漂亮的表单
一样请问各位高手有什么方法?最好是比较简单的。
 
用面板就可以了,分什么样都行!
 
用listview可以了
 
Canvas画,或者使用TShape.
 
tshape?能具体些吗?
 
多谢各位了,panel就可以办到,效果不错。呵呵。
 
还有一个问题,如何改变边框的颜色?
 
写个例子给你吧
To wbing,
你的Qq多少阿
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
procedure FormResize(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormResize(Sender: TObject);
var
i,j: Integer;
WidA, HeiA: Integer;
const
Wid = 10;
Hei = 10;
begin
WidA := 0;
Form1.Canvas.Pen.Color := clred;
for i := 0 to 100 do
begin
Form1.Canvas.MoveTo(0,WidA);
Form1.Canvas.LineTo(Form1.Width,WidA);
WidA := WidA + Wid;
end;

HeiA := 0;
Form1.Canvas.Pen.Color := clblue;
for i := 0 to 100 do
begin
Form1.Canvas.MoveTo(HeiA,0);
Form1.Canvas.LineTo(HeiA,Form1.Height);
HeiA := HeiA + Hei;
end;
end;

end.
 
多谢各位了。我找到了一个组件是在www.delphibox.com上面的挺好用不过我还是想知道

自己怎么做能够使panel组件带边框。
 
后退
顶部