盒子论坛 v2.1

以下代码可能有帮助！
var
  Myc ; TCanvas ;
begin
  Myc := TCanvas.Create ;
  With Myc Do
  begin
    Brush.Style := bsSolid ;
    Brush.color := clBlue ;
    Pen.Style := psSolid ;
    Pen.Color := clRed ;
    Pen.Width := 1 ;

    rectangle(10,10,100,100);

    Free ;
  end ;

   //试试一下以上的代码吧/
你就偷着乐去吧？
----------------------------------------------

作者：

boy (阿門)	★☆☆☆☆	-
	盒子活跃会员

2003/6/1 23:37:43

3楼：

試試看

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Shape1: TShape;
    Memo1: TMemo;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

end.

=========================
object Form1: TForm1
  Left = 192
  Top = 107
  Width = 544
  Height = 375
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Shape1: TShape
    Left = 138
    Top = 56
    Width = 195
    Height = 233
    Brush.Color = clBlack
  end
  object Memo1: TMemo
    Left = 132
    Top = 48
    Width = 189
    Height = 227
    Lines.Strings = (
      'Memo1')
    TabOrder = 0
  end
end
----------------------------------------------
Delphi開發◆伺服器架設◆免安裝APACHE,PHP,CGI Perl, MYSQL ★

信息

登陆以后才能回复