在這裡學了一會了…分享個我自已寫的一個備忘錄管理系統…雖然不是很好…但希望大家會喜歡…這裡真是個好地方…學習無限廣…    提供了三個版面讓使用者可以自行選擇…也可以自行動手做哦~~ 1、一般風格 2、粉虹佳人 3、趴趴熊 發表人 - edwardweng 於 2004/11/01 18:56:09

附加檔案：58918_EZCall_Install.rar

请教：换风格是用的什么方式？

引言: 请教：换风格是用的什么方式？

我是先將值寫入登入檔內後，再一次全部重新讀出圖檔路徑。 程式碼如下: //寫入資訊 //寫入資訊 Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey('\Software\EZCall\', True) then begin with Reg do begin //WriteString('DataBase', Trim(DataBaseAddressEdit.Text)); WriteInteger('EZCallKind', FormKindEdit.ItemIndex); WriteString('DBG', Trim(ColorEdit1.Text)); WriteString('DBG1', Trim(ColorEdit2.Text)); WriteString('DBD', Trim(ColorEdit3.Text)); WriteString('IDBG', Trim(ColorEdit4.Text)); WriteString('IDBG1', Trim(ColorEdit5.Text)); FormKindEdit.Text -> 就是圖檔存放的目錄名稱 WriteString('LoginForm', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\Login.bmp'); WriteString('MessageForm', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\Message.bmp'); WriteString('EventForm', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\EventForm.bmp'); WriteString('EOMsgForm', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\EOMsg.bmp'); WriteString('SetupForm', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\Setup.bmp'); WriteString('SetupBackground', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\Setup_Background.bmp'); WriteString('InsertForm', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\InsertForm.bmp'); WriteString('InsertSelDate', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\SelectDate.bmp'); WriteString('InsertSelTime', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\SelectTime.bmp'); WriteString('InsertPlaySoundBtn', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\PlaySoundBtn.bmp'); WriteString('InsertOpenSound', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\OpenSound.bmp'); WriteString('EditForm', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\EditForm.bmp'); WriteString('EditSelDate', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\SelectDate.bmp'); WriteString('EditSelTime', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\SelectTime.bmp'); WriteString('EditPlaySoundBtn', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\PlaySoundBtn.bmp'); WriteString('EditOpenSound', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\OpenSound.bmp'); WriteString('FindForm', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\FindForm.bmp'); WriteString('FindSelectDate', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\SelectDate.bmp'); WriteString('FindSelectDate1', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\SelectDate.bmp'); WriteString('FindSelectTime', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\SelectTime.bmp'); //WriteString('FindSelectTime1', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\SelectTime.bmp'); WriteString('TimeForm', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\Time.bmp'); WriteString('ShowEventForm', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\ShowEventForm.bmp'); WriteString('OpenColor', ExtractFilePath(Application.ExeName) 'Picture\' Trim(FormKindEdit.Text) '\OpenColor.bmp'); WriteInteger('AutoDel', AutoDelCheckTemp ); end; with Reg do begin LoginBmp := ReadString('LoginForm'); MessageBmp := ReadString('MessageForm'); EventBmp := ReadString('EventForm'); EOMsgBmp := ReadString('EOMsgForm'); SetupBmp := ReadString('SetupForm'); Setup_BackgroundBmp := ReadString('SetupBackground'); InsertBmp := ReadString('InsertForm'); InsSelectDateBmp := ReadString('InsertSelDate'); InsSelectTimeBmp := ReadString('InsertSelTime'); InsPlaySoundBmp := ReadString('InsertPlaySoundBtn'); InsOpenSoundBmp := ReadString('InsertOpenSound'); EditBmp := ReadString('EditForm'); EditSelectDateBmp := ReadString('EditSelDate'); EditSelectTimeBmp := ReadString('EditSelTime'); EditPlaySoundBmp := ReadString('EditPlaySoundBtn'); EditOpenSoundBmp := ReadString('EditOpenSound'); FindBmp := ReadString('FindForm'); FindSelectDateBmp := ReadString('FindSelectDate'); FindSelectDateBmp1 := ReadString('FindSelectDate1'); SelectTimeBmp := ReadString('FindSelectTime'); //ReadString('FindSelectTime1'); TimeBmp := ReadString('TimeForm'); ShowEventBmp := ReadString('ShowEventForm'); OpenColorBmp := ReadString('OpenColor'); end; Reg.CloseKey; end; finally Reg.Free; inherited; end; Login_Form.Image1.Picture.LoadFromFile(Trim(LoginBmp)); Message_Form.Image1.Picture.LoadFromFile(Trim(MessageBmp)); Event_Form.Image1.Picture.LoadFromFile(Trim(EventBmp)); EOMsg_Form.Image1.Picture.LoadFromFile(Trim(EOMsgBmp)); Image1.Picture.LoadFromFile(Trim(SetupBmp)); Image2.Picture.LoadFromFile(Trim(Setup_BackgroundBmp)); Image3.Picture.LoadFromFile(Trim(Setup_BackgroundBmp)); Insert_Form.Image1.Picture.LoadFromFile(Trim(InsertBmp)); Insert_Form.SelectDateBtn.Glyph.LoadFromFile(Trim(InsSelectDateBmp)); Insert_Form.SelectTimeBtn.Glyph.LoadFromFile(Trim(InsSelectTimeBmp)); Insert_Form.PlaySoundBtn.Glyph.LoadFromFile(Trim(InsPlaySoundBmp)); Insert_Form.OpenSoundBtn.Glyph.LoadFromFile(Trim(InsOpenSoundBmp)); Edit_Form.Image1.Picture.LoadFromFile(Trim(EditBmp)); Edit_Form.SelectDateBtn.Glyph.LoadFromFile(Trim(EditSelectDateBmp)); Edit_Form.SelectTimeBtn.Glyph.LoadFromFile(Trim(EditSelectTimeBmp)); Edit_Form.PlaySoundBtn.Glyph.LoadFromFile(Trim(EditPlaySoundBmp)); Edit_Form.OpenSoundBtn.Glyph.LoadFromFile(Trim(EditOpenSoundBmp)); Find_Form.Image1.Picture.LoadFromFile(Trim(FindBmp)); Find_Form.SelectDateBtn.Glyph.LoadFromFile(Trim(FindSelectDateBmp)); Find_Form.SelectDateBtn1.Glyph.LoadFromFile(Trim(FindSelectDateBmp1)); SelectTime_Form.Image1.Picture.LoadFromFile(Trim(TimeBmp)); ShowEvent_Form.Image1.Picture.LoadFromFile(Trim(ShowEventBmp)); OpenColor1.Glyph.LoadFromFile(OpenColorBmp); OpenColor2.Glyph.LoadFromFile(OpenColorBmp); OpenColor3.Glyph.LoadFromFile(OpenColorBmp); OpenColor4.Glyph.LoadFromFile(OpenColorBmp); OpenColor5.Glyph.LoadFromFile(OpenColorBmp); Event_Form.DBGrid1.FixedColor := StringToColor(ColorEdit1.Text); Event_Form.DBGrid1.Color := StringToColor(ColorEdit2.Text); Event_Form.DBText1.Color := StringToColor(ColorEdit3.Text); Event_Form.DBText2.Color := StringToColor(ColorEdit3.Text); Event_Form.DBText3.Color := StringToColor(ColorEdit3.Text); Event_Form.DBMemo1.Color := StringToColor(ColorEdit3.Text); DBGrid1.FixedColor := StringToColor(ColorEdit4.Text); DBGrid1.Color := StringToColor(ColorEdit5.Text); Login_Form.Refresh; Message_Form.Refresh; SelectTime_Form.Refresh; Setup_Form.Refresh; ShowEvent_Form.Refresh; Edit_Form.Refresh; EOMsg_Form.Refresh; Event_Form.Refresh; Find_Form.Refresh; Insert_Form.Refresh; ShowMessage('套用完畢!!');