TEdit 物件的使用 |
|
答題得分者是：taishyang
|
|
newbie
初階會員   發表：81 回覆：45 積分：25 註冊：2002-11-28 發送簡訊給我 |
|
|
taishyang
站務副站長  發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
newbie您好:
您已經發表過類似的文章囉
http://delphi.ktop.com.tw/topic.php?topic_id=27748 順心
|
|
newbie
初階會員 發表：81 回覆：45 積分：25 註冊：2002-11-28 發送簡訊給我 |
|
|
Cooky Kid
初階會員 發表：5 回覆：68 積分：44 註冊：2002-07-11 發送簡訊給我 |
引言: 我想讓 TEdit 輸入的資料都靠右, 有什麼好方法嗎?提供您一個好看的Edit，一個難看的Edit...... < >< > //---------------------------------------------------------------------------
#include ＜vcl.h＞
#pragma hdrstop #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
//難看的 API 函式 Edit 元件
AnsiString str = "UglyLookEdit";
//創造一個 Edit 元件
HWND Hedit = ::CreateWindow("EDIT", str.c_str(),
WS_VISIBLE | WS_CHILD | WS_BORDER | WS_TABSTOP | ES_RIGHT,
70, 70,
150, 20,
Handle, NULL, HInstance, NULL); //好看的 Edit 元件
TREdit *edit = new TREdit(this);
edit-＞Parent = Form1;
edit-＞Name = "Edit";
edit-＞Text = "GoodLookEdit";
edit-＞Width = 120; edit-＞Height = 20;
edit-＞Left = 20; edit-＞Top = 30;
//請自行添加此 Edit 元件的動態事件...
}
//以下是REdit單字串元件類別的函式--------------------------------------------
__fastcall TREdit::TREdit(TComponent* Owner)
: TEdit(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TREdit::CreateParams(TCreateParams &Params)
{
TEdit::CreateParams(Params);
Params.Style = Params.Style | ES_RIGHT;// ES_MULTILINE;
}
//---------------------------------------------------------------------------
namespace Reditcode
{
void __fastcall PACKAGE Register()
{
TComponentClass classes[1] = {__classid(TREdit)};
RegisterComponents("MyRightEdit", classes, 0);
}
}
//---------------------------------------------------------------------------
發表人 - cooky kid 於 2003/05/14 23:33:16
|
|
taishyang
站務副站長 發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
發表時間：2003-05-14 20:06:10
IP:61.220.xxx.xxx 未訂閱
系統時間：2024-11-23 15:30:08
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |