Текущий архив: 2002.05.20;
Скачать: CL | DM;

Вниз

Как скрыть и показать курсор   Найти похожие ветки 

← →
demon-777 ©   (2002-05-06 18:04) [0]

сабж собственно

---

← →
Atrem   (2002-05-06 18:07) [1]

Showcursor(false) - убрать
Showcursor(true) - показать

---

← →
Kettle of delphi   (2002-05-06 18:11) [2]


procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Panel1.Cursor := crNone;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = "n" then Screen.Cursor := crNone;
if Key = "y" then Screen.Cursor := crDefault;
end;


---

← →
demon-777 ©   (2002-05-06 18:58) [3]

Спасибо за ответы, и извените что не поискал в инете(инета очень мало осталось).

---

Страницы: 1 вся ветка

Текущий архив: 2002.05.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c