INI с настройками.

[Человек_Борща]

Привет=) решил написать тут же. вот похожая проблема, но с конструкцией действия onChange на sComboBox

procedure TSettingsForm.SkinBoxChange(Sender: TObject);
begin
If skinAppyRight.Checked then
begin
if skinbox.ItemIndex=0 then
begin
MainForm.SkinManager.SkinName:='LongHorn (internal)';
end
else
MainForm.SkinManager.SkinName:='WLM (internal)';

If skinbox.ItemIndex=1  then
begin
MainForm.SkinManager.SkinName:='Office2007 Black (internal)';
end
else
MainForm.SkinManager.SkinName:='WLM (internal)';
If skinbox.ItemIndex=2  then
begin
MainForm.SkinManager.SkinName:='Shine (internal)';
end
else
MainForm.SkinManager.SkinName:='WLM (internal)';
If skinbox.ItemIndex=3  then
begin
MainForm.SkinManager.SkinName:='WLM (internal)';
end
else
MainForm.SkinManager.SkinName:='WLM (internal)';
If skinbox.ItemIndex=4  then
begin
MainForm.SkinManager.SkinName:='WMP 2008(internal)';
end
else
MainForm.SkinManager.SkinName:='WLM (internal)';
If skinbox.ItemIndex=5  then
begin
MainForm.SkinManager.SkinName:='WMP11 (internal)';
end
else
MainForm.SkinManager.SkinName:='WLM (internal)';
If skinbox.ItemIndex=6  then
begin
MainForm.SkinManager.SkinName:='XPLuna(internal)';
end
else
MainForm.SkinManager.SkinName:='WLM (internal)';
end;
end;

суть проблемы в том что при использовании этой конструкции, скин меняется на любой выбранный а потом прогоняет все else в конструкции.. т.е.
выбрал скин, он сменился, но потом ещё 6 раз провернул

else
MainForm.SkinManager.SkinName:='WLM (internal)';

в итоге программа возвращается к прежнему виду WLM (internal)
я в тупике=) помогите=)

[mihali4]

Читаем правила.
Один вопрос - одна тема.
Тем более - оффтопить в чужую тему годичной давности...
Создавайте новую, будем ее смотреть.