請問哪位大俠如何讓windows顯示這樣的文字!

是要這樣的效果?.... < class="code"> unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; PaintBox1: TPaintBox; procedure FormCreate(Sender: TObject); procedure PaintBox1Paint(Sender: TObject); procedure Edit1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} var bmp : TBitmap ; procedure TForm1.FormCreate(Sender: TObject); const ColorMap:array[0..6] of TColor= (clRed,$000080FF,clYellow,clGreen,clBlue,$00A00000,clPurple) ; var i : integer ; begin Edit1.Font.Size:=20 ; Edit1.Font.Style:=[fsBold] ; PaintBox1.Font:=Edit1.Font ; PaintBox1.Height:=Edit1.Height ; bmp:=TBitmap.Create ; bmp.Width:=PaintBox1.Width ; bmp.Height:=PaintBox1.Height ; for i:=0 to (bmp.Width div 2) do begin bmp.Canvas.Pen.Color:=ColorMap[i mod 7] ; bmp.Canvas.Rectangle(i*2,0,i*2 1,bmp.height-1) ; end ; end; procedure TForm1.PaintBox1Paint(Sender: TObject); begin with PaintBox1.Canvas do begin font.Color:=clWhite ; Brush.Style:=bsClear ; BitBlt(Handle,0,0,bmp.width,bmp.height,bmp.Canvas.Handle,0,0,BLACKNESS) ; TextOut(2,4,Edit1.Text) ; BitBlt(Handle,0,0,bmp.width,bmp.height,bmp.Canvas.Handle,0,0,SRCAND) ; end ; end; procedure TForm1.Edit1Change(Sender: TObject); begin PaintBox1.Refresh ; end; end. ...Aquarius

------
水瓶男的blog: http://791909.blogspot.com

萬分感謝aquarius 的解答,不過我想知道這個程式編輯功能的實現方法,不知能否幫幫我?http://delphi.ktop.com.tw/loadfile.php?TOPICID=13804878&CC=308742