關於Edit的borderstyle 寫程元件時，出現Undeclared的訊息? |
|
答題得分者是：Justmade
|
|
skurama
中階會員   發表：88 回覆：127 積分：73 註冊：2002-07-22 發送簡訊給我 |
我目前要做一個Panel上面有一個Edit的功能，
但是我的Edit為了和背景同樣顏色，
需要把邊框消失，
於是我把 Edit1.borderstyle := bsNone 加在元件的Create
但是確出現 Undeclared identifier : bsNone 以下是我的程式碼
--------------------------------------------------------
unit Panel1; interface uses
SysUtils, Classes, Controls, ExtCtrls, StdCtrls; type
TPanel1 = class(TPanel)
private
Edit1 : TEdit;
{ Private declarations }
protected
{ Protected declarations }
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
{ Public declarations }
published
{ Published declarations }
end; procedure Register; implementation procedure Register;
begin
RegisterComponents('TEST', [TPanel1]);
end; { TPanel1 } constructor TPanel1.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Edit1 := TEdit.create(self);
Edit1.BorderStyle := bsNone;
end; destructor TPanel1.Destroy;
begin
Edit1.Free;
inherited Destroy;
end; end. -------------------------------------------------------- 之後又找到 TBorderStyle 是在 QControls 單元中，
可是出現另一個訊息
Incompatible types: 'StdCtrls.TBorderStyle' and 'Panel1.TBorderStyle' 我是用Delphi 7.0，
可是以上程式在 D5中都正常，請問7.0元件的開發有新的注意事項嗎? ----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------
------
---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ---------------- |
|
Justmade
版主 發表：94 回覆：1934 積分：2030 註冊：2003-03-12 發送簡訊給我 |
|
|
wnhoo
高階會員  發表：75 回覆：443 積分：198 註冊：2003-04-22 發送簡訊給我 |
|
|
skurama
中階會員 發表：88 回覆：127 積分：73 註冊：2002-07-22 發送簡訊給我 |
發表時間：2003-05-01 16:02:11
IP:61.219.xxx.xxx 未訂閱
系統時間：2024-05-14 21:30:03
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |