Мой DELPHI – Программирование

Вопрос:
Как использовать анимированный курсор?

Ответ:

Во первых необходимо получит
handle курсора, а затем определить его в массиве курсоров компонента TScreen.
Индексы предопределенных курсоров системы отрицательны, пользователь может определить
курсор, индекс которого положителен. Прочитать остальную часть записи »

Вопрос:
Как извлечь Red, Green, и Blue компонент из определенного цвета?

Ответ:

Используйте функции Window API Get RValue(), GetGValue(), и GetBValue().

Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
	Form1.Canvas.Pen.Color := clRed;
	Memo1.Lines.Add('Red := ' + IntToStr(GetRValue(Form1.Canvas.Pen.Color)));
	Memo1.Lines.Add('Red := ' + IntToStr(GetGValue(Form1.Canvas.Pen.Color)));
	Memo1.Lines.Add('Blue:= ' + IntToStr(GetBValue(Form1.Canvas.Pen.Color)));
end;

Вопрос:

Как отключить системное меню формы и кнопки Minimize, Maximize, and Close во время выполнения(Runtime)?

Ответ:
В приведенном примере показано как это сделать Прочитать остальную часть записи »

Как создать и использовать новую форму курсора?

Для этого необходимо создать новый курсор(ы) в подходящем для этого редакторе
ресурсов (например борландовский Resource Workshop). При этом надо обратить
внимание на то что имена в редакторе ресурсов (особенно в том, который поставляется
с Delphi) надо писать заглавными буквами. После этого “перед внутренним
употреблением” (лучше всего в процедуре обработки события OnCreate главной
формы) необходимо загрузить курсор(ы) из res-файла как указано ниже:

{$I CURSOR.RES}

Screen.Cursors[1] := LoadCursor(hInstance, 'CURSOR_1');
Button1.Cursor := 1;

Обратите внимание на то, что системные курсоры в Screen.Cursors начинаются
с нуля и идут в минусовом направлении. Поэтому при создании новых курсоров
лучше выбирать положительные числа (лучше не слишком большие :-)). Прочитать остальную часть записи »