DBGrid 遇上 WebBrowser(Delphi7.0) |
|
尚未結案
|
|
nlmnrke
一般會員   發表：5 回覆：16 積分：4 註冊：2004-11-17 發送簡訊給我 |
|
|
mustapha.wang
資深會員   發表：89 回覆：409 積分：274 註冊：2002-03-13 發送簡訊給我 |
|
|
nlmnrke
一般會員 發表：5 回覆：16 積分：4 註冊：2004-11-17 發送簡訊給我 |
|
|
qoo1234
版主 發表：256 回覆：1167 積分：659 註冊：2003-02-24 發送簡訊給我 |
|
|
nlmnrke
一般會員 發表：5 回覆：16 積分：4 註冊：2004-11-17 發送簡訊給我 |
板主大大,先說聲謝謝
不過我去看過 unit FixedDBGrid;
interface
uses
Winprocs,wintypes, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, Grids, DBGrids;
type
TFixedDBGrid = class(TDBGrid)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
procedure WMRButtonDown(var Message: TWMRButtonDown); message
WM_RBUTTONDOWN;
procedure WMLButtonDown(var Message: TWMLButtonDown); message
WM_LBUTTONDOWN;
published
{ Published declarations }
end; procedure Register;
implementation procedure TFixedDBGrid.WMRButtonDown(var Message: TWMRButtonDown);
begin
winprocs.SetFocus(handle); {remember that winprocs in Delphi 1 only!}
inherited;
end;
procedure TFixedDBGrid.WMLButtonDown(var Message: TWMLButtonDown);
begin
winprocs.SetFocus(handle); {remember that winprocs in Delphi 1 only!}
inherited;
end;
procedure Register;
begin
RegisterComponents('Samples', [TFixedDBGrid]);
end; end.
Reference:
他是這麼寫地,不過對一個delphi新手來講,要如何改好像太難了.
能不能,再提示多一點....
|
|
qoo1234
版主 發表：256 回覆：1167 積分：659 註冊：2003-02-24 發送簡訊給我 |
//參考看看
unit FixedDBGrid; interface uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, Grids, DBGrids; type
TFixedDBGrid = class(TDBGrid)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
procedure WMRButtonDown(var Message: TWMRButtonDown); message
WM_RBUTTONDOWN;
procedure WMLButtonDown(var Message: TWMLButtonDown); message
WM_LBUTTONDOWN;
published
{ Published declarations }
end; procedure Register; implementation procedure TFixedDBGrid.WMRButtonDown(var Message: TWMRButtonDown);
begin
Windows.SetFocus(handle);
inherited;
end; procedure TFixedDBGrid.WMLButtonDown(var Message: TWMLButtonDown);
begin
Windows.SetFocus(handle);
inherited;
end; procedure Register;
begin
RegisterComponents('MyQooVCL', [TFixedDBGrid]);
end; end.  網海無涯，唯學是岸！
找對焦點，就會產生方向^_^
|
|
nlmnrke
一般會員 發表：5 回覆：16 積分：4 註冊：2004-11-17 發送簡訊給我 |
|
|
qoo1234
版主 發表：256 回覆：1167 積分：659 註冊：2003-02-24 發送簡訊給我 |
發表時間：2005-02-28 15:41:26
IP:211.23.xxx.xxx 未訂閱
系統時間：2024-05-18 5:32:07
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |