Установить курсор из файла *.cur имея Windows.Forms и Windows.Input

@Николянус · Регистрация: 10.12.2017

Author24 — интернет-сервис помощи студентам

Имеется форма на Windows.Forms. Нужно заменить стандартный курсор, на курсор расположенный например по адресу 'C:\cursor.cur'.
Как это сделать используя Windows.Input ?

@Sun Serega · 30.01.2019, 01:03

Сообщение от Николянус

Как это сделать используя System.Windows.Input

Никак, потому что System.Windows.Input это WPF, а System.Windows.Forms это GDI, их типы не совместимы друг с другом.

Зато можно так:

Pascal

{$reference System.Windows.Forms.dll}
{$reference System.Drawing.dll}
uses System.Windows.Forms;
uses System.Drawing;
 
begin
  var f := new Form;
  f.Closing += procedure(o,e)->Halt;
  
  var tb := new RichTextBox;
  f.Controls.Add(tb);
  
  var resize_all: ()->() := procedure->
  tb.Bounds := new Rectangle(
    20,20,
    f.ClientSize.Width-40,f.ClientSize.Height-40
  );
  f.Resize += procedure(o,e)->resize_all;
  f.Load += procedure(o,e)->resize_all;
  
  
  System.Threading.Thread.Create(
    procedure->Application.Run(f)
  ).Start;
  
  while true do
  begin
    tb.Cursor := System.Windows.Forms.Cursors.Arrow;
    Sleep(1000);
    tb.Cursor := System.Windows.Forms.Cursors.Hand;
    Sleep(1000);
    //tb.Cursor := System.Windows.Forms.Cursor.Create('file.name');
  end;
end.

(наведите курсор на текстовое поле - он будет меняться)

@Николянус Singleberry 2 / 2 / 0 Регистрация: 10.12.2017 Сообщений: 107
		1
	Установить курсор из файла .cur имея Windows.Forms и Windows.Input 29.01.2019, 23:19. Показов* 2506. Ответов 1 Метки нет (Все метки) Имеется форма на Windows.Forms. Нужно заменить стандартный курсор, на курсор расположенный например по адресу 'C:\cursor.cur'. Как это сделать используя Windows.Input ? 0

	30.01.2019, 01:03

Установить курсор из файла *.cur имея Windows.Forms и Windows.Input

Решение