Варианты курсора(Delphi)

[IGoDoVaN]

Ребят помогите пожалуйста напишите задачку...

Требется на форме создать набор переключателей с вариантами курсоров (компонент TRadioGroup; свойства Items, ItemsIndex; событие onChange)

так выглядит форма

[-=<[Evklidd]>=-]

Напишите в обработчике события:
case RadioGroup1.ItemIndex of
0: Form1.Cursor:= crArrow;
1: Form1.Cursor:= crHandPoint;
2: Form1.Cursor:= crCross;
end;

[IGoDoVaN]

А как сделать чтобы записывалось в ини файл название курсора и его номер?

[Stilet]

Посмотри хелп для TMemIniFile.WriteString
ТАм пример подходящий для TIniFile, которым удобно работать с ИНИ файлами

[IGoDoVaN]

procedure TForm1.formClose(Sender: TObject; var Action: TCloseAction);
var iniFile:Tinifile;
var s:string;
begin
s:=application.ExeName;
s:=ChangeFileExt(s,'.ini');
IniFile:=Tinifile.create(s);

IniFile.writeString('шрифт','имя',label1.font.name);
IniFile.writeInteger('цвет','размер',label1.font.Size);
IniFile.destroy();
end;


procedure TForm1.FormCreate(Sender: TObject);

var iniFile:Tinifile;
var s:string;
begin
s:=application.ExeName;
s:=ChangeFileExt(s,'.ini');
IniFile:=Tinifile.create(s);

label1.font.name:=inifile.ReadString('шрифт','имя','Arial');
label1.font.Size:=inifile.ReadInteger('цвет','размер',14);

IniFile.destroy();

end;

так записывается для текста: его шрифт, цвет, размер... А как это сделать для курсора?

label1.font.name как такое для курсора записать? label1.cursor.name?

[Stilet]

Ну если речь идет о TCursor то это простой Integer вот и пиши его WriteInteger.

[IGoDoVaN]

ок, попробую...

[IGoDoVaN]

Блин, какой его WriteInteger?

[Stilet]

какой его WriteInteger?

Шо значит какой? Их что несколько?

[IGoDoVaN]

Какие вообще есть свойства курсора? Можно ли менять его размер?