如附圖 請問各位大大，Edit或Memo裡面的游標(一閃一閃的那個)，是否可以改變它的大小或顏色或寬度呢。 ========================================= 程式有問題並不可怕，最怕是不知問題出在那 不知問題在那不可怕，更怕是不知如何問問題 寫程式要從最簡單的開始

------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。
得之；我幸。不得；我命。

謝謝hahalin大大的回答 不過我是想改變輸入的游標、並不是滑鼠的游標。 ========================================= 程式有問題並不可怕，最怕是不知問題出在那 不知問題在那不可怕，更怕是不知如何問問題 寫程式要從最簡單的開始

------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。
得之；我幸。不得；我命。

您好, 參考 Peter Below 的 TCaretEdit 試試: http://groups.google.com.tw/group/borland.public.delphi.vcl.components.using.win32/msg/8cf2ddeb21305f75?hl=zh-TW -- hagar.

事實上，就是透過這些 API 處理。 CreateCaret DestroyCaret HideCaret ShowCaret     hagar兄  所提供的 TCaretEdit。 有一個小問題，就是當 TabOrder 次序為0。游標就不會顯現出來。  主要漏了處理 WM_KEYDOWN,WM_LBUTTONDOWN 訊息。加進去處理，就可以了。    以下使用沒有繼承元件的作法。參考

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
  public
  end;    var
  Form1: TForm1;    implementation
{$R *.DFM}    var
  CaretBmp : TBitmap;
  OldEditWndProc : Pointer;    function NewEditWndProc(hWindow: HWnd; Msg ,WParam,LParam: Longint): Longint;stdcall;
begin
  Result := CallWindowProc(OldEditWndProc,hWindow, Msg, WParam, LParam);
  Case Msg of
    WM_KEYDOWN,WM_LBUTTONDOWN,WM_SETFOCUS  :
                  begin
                    CreateCaret(hWindow, CaretBmp.Handle, 0, 0);
                    ShowCaret(hWindow);
                  end;
  end;
end;    procedure TForm1.FormCreate(Sender: TObject);
Const
  CaretW = 3;   {游標寬}
  CaretH = 12;  {游標長}
  CaretColor = clBlue;  {顏色為反相後顏色}
begin
  CaretBmp := TBitmap.Create;
  With CaretBmp do
  begin
    Width  := CaretW;
    Height := CaretH;
    Canvas.Brush.Color := CaretColor;
    Canvas.FillRect(Canvas.ClipRect);
  end;
  OldEditWndProc := Pointer(SetWindowLong(Edit1.Handle,GWL_WNDPROC
                           ,LongInt(@NewEditWndProc)));
end;    procedure TForm1.FormDestroy(Sender: TObject);
begin
  SetWindowLong(Edit1.Handle,GWL_WNDPROC, LongInt(OldEditWndProc));
  CaretBmp.Free;
end;

～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

謝謝hagar大大與wameng大大，我是用類似wameng大大的方法解決的， 不過hagar大大提供了我解決的方向，wameng大大又提供了範例程式， 真是太感激各位大大。 ========================================= 程式有問題並不可怕，最怕是不知問題出在那 不知問題在那不可怕，更怕是不知如何問問題 寫程式要從最簡單的開始

------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。
得之；我幸。不得；我命。