如何改变光标形状？

Question

你又没有改变 edit的 cursor属性。当然回变回去了！

Answer 1

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  CreateCaret((Sender as TEdit).Handle, 0, 10, 10);
  ShowCaret((Sender as TEdit).Handle);
end;procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  CreateCaret((Sender as TEdit).Handle, 0, 10, 10);
  ShowCaret((Sender as TEdit).Handle);
end;