請問我想要自行用SpeedButton來代替Dbnavigator, 所以當我按下新增Button時,存檔和取消的Button自動ON起來等狀況, 但是我不想使用用笨方法,把button寫死,去enable,請問有沒有比較聰明 的方法依table的state去控制button的enable??

引言: 1. 其實 Dbnavigator 已經很好用了 2. 如果一定要用自己的 Button 時，我建議妳從 TDataSource 的 OnStateChange 事件下手 例如: procedure TForm1.DataSource1StateChange(Sender: TObject); begin SpeedButton1.Enabled := TDataSource(Sender).State in [dsInsert,dsEdit]; SpeedButton2.Enabled := TDataSource(Sender).State in [dsInsert,dsEdit]; SpeedButton3.Enabled := TDataSource(Sender).State in [dsInsert,dsEdit]; SpeedButton4.Enabled := TDataSource(Sender).State in [dsBrowse]; ....... end;

發表人 - 懷舊的人 於 2003/02/11 18:50:55

我覺的“tactionlist“元件很好用，你可以試試看

引言:

引言: 1. 其實 Dbnavigator 已經很好用了 2. 如果一定要用自己的 Button 時，我建議妳從 TDataSource 的 OnStateChange 事件下手 例如: procedure TForm1.DataSource1StateChange(Sender: TObject); begin SpeedButton1.Enabled := TDataSource(Sender).State in [dsInsert,dsEdit]; SpeedButton2.Enabled := TDataSource(Sender).State in [dsInsert,dsEdit]; SpeedButton3.Enabled := TDataSource(Sender).State in [dsInsert,dsEdit]; SpeedButton4.Enabled := TDataSource(Sender).State in [dsBrowse]; ....... end;

發表人 - 懷舊的人 於 2003/02/11 18:50:55

這各方法我還有一點小小疑問,請問如果button很多的話, 程式碼不就很長,請問可否改寫成更簡潔一點

這各方法我還有一點小小疑問,請問如果button很多的話, 程式碼不就很長,請問可否改寫成更簡潔一點 1. 因為妳每個 TSpeedButton 有不同的作用，例如新增,修改，查詢，確認，取消...等 2. 因為 DataSource 改變時會影響那幾個妳要先知道，然後就可以將同受影響的SpeedButton.Tag 設為不同的值，不過跟據經驗這些 Button 大約 10 個內就過夠了，所以一一控制就可以了 3. 妳可以考慮 用繼承 的方式來設計 4. 多利用 Tag 這屬性 非常好用，由其妳真的用心來設計時就會有感受了 加油 ，祝福妳