황현동 wrote:

> 커서 깜박임 속도가 있었는데..

> 요 밑에서 물어본적있거든요.. api함수 를 써보라고.. 그래서 해봤더니..

> 기냥 커서가 안보이게 할수는 없나여??



제 홈페이지(http://myhome.shinbiro.com/~cozykyd/index.htm)의

"Delphi Tip" 에서 "커서" 또는 "캐럿"으로 검색해 보시면

커서와 관련된 자료가 있습니다



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Buttons, StdCtrls;



type

TForm1 = class(TForm)

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



// 마우스 커서 보이기

procedure TForm1.SpeedButton1Click(Sender: TObject);

var

Cstate: Integer;

begin

Cstate := ShowCursor(True);

while Cstate < 0 do {while off turn on}

Cstate := ShowCursor(True);

end;



// 마우스 커서 감추기

procedure TForm1.SpeedButton2Click(Sender: TObject);

var

Cstate: Integer;

begin

Cstate := ShowCursor(True);

while Cstate >= 0 do {while ON turn Off}

Cstate := ShowCursor(False);

end;



end.