黑輪
中階會員
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:135 回覆:188 積分:64 註冊:2004-01-29
發送簡訊給我
|
如何設定Memo可以輸入幾行的資料?
感謝大家哦~~
|
taishyang
站務副站長
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](http://delphi.ktop.com.tw/download.php?download=upload/462c1ab02cd1c_Pic.jpg) 發表:377 回覆:5490 積分:4563 註冊:2002-10-08
發送簡訊給我
|
黑輪您好:
應該是沒有辦法直接設定的(您指的應該是列吧[橫列直行的話])
不過可以利用程式來做到這樣的功能
if (Memo1->Lines->Count > 10)
{
//做您要做的處理
} 順心 ![]() <>~我也是在學習的階段,回答的不好請您多多見諒與指教~>
|
anpino
版主
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:31 回覆:477 積分:231 註冊:2003-01-02
發送簡訊給我
|
(與taishyang 同時回應...
因內容相似故刪除。) 發表人 - anpino 於 2004/03/03 14:16:37
|
黑輪
中階會員
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:135 回覆:188 積分:64 註冊:2004-01-29
發送簡訊給我
|
我是想給使用者只能輸入10行的資料,還是有別的方法可以做?
感謝你哦~~
|
m8815010
版主
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:99 回覆:372 積分:289 註冊:2003-11-13
發送簡訊給我
|
引言:
如何設定Memo可以輸入幾行的資料?
感謝大家哦~~
黑輪你好 : 應該是沒有直接的 >:
< class="code">
In Unit.h ~~
private: // User declarations
void __fastcall MemoWndProc(TMessage&);
TWndMethod OldMemoWndProc;
~~ In Unit.cpp ~~
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
OldMemoWndProc=Memo1->WindowProc;
Memo1->WindowProc=MemoWndProc;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MemoWndProc(TMessage& Message)
{
OldMemoWndProc(Message); if (Message.Msg==WM_CHAR) {
if (Memo1->Lines->Count>=5) { <---假設最多4行
Memo1->Lines->Delete(4);
return;
}
}
}
//---------------------------------------------------------------------------
這個例子是只給使用者輸入4行,第5行想要輸入字元的話,會按不出來,但是注意游標是可以到第5行的,因為第5行如果沒有字元只有游標的話,它會當作Memo只有4行的,如下圖 ! < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=14347933&CC=320887"> That's all ! 發表人 -
|
黑輪
中階會員
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:135 回覆:188 積分:64 註冊:2004-01-29
發送簡訊給我
|
哇~~這是什麼東西啊!!
慘了~看不懂~~研究一下啦 哪如果一次想要有3個memo只可以輸入n行,要改哪裡啊?
|
m8815010
版主
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:99 回覆:372 積分:289 註冊:2003-11-13
發送簡訊給我
|
引言:
哇~~這是什麼東西啊!!
慘了~看不懂~~研究一下啦 哪如果一次想要有3個memo只可以輸入n行,要改哪裡啊?
黑輪你好 : 精神就是今天>當使用者要>
有這樣的想法,當然程式碼會加在 >!因為這些事件就是在 >! <>針對你的多個>的問題… 一樣,直覺的,假設有 class="code">
In Unit.h ~~ class MyMemo : public TMemo //宣告一個新Memo物件
{
__published:
private: public:
int LimiteLine;
__fastcall MyMemo(TComponent* Owner,int);
void __fastcall MyMemoWndProc(TMessage&);
TWndMethod OldMyMemoWndPro;
};
~~ In Unit.cpp ~~ //---------------------------------------------------------------------------
__fastcall MyMemo::MyMemo(TComponent* Owner,int LmtLne) : TMemo(Owner)
{
LimiteLine=LmtLne; OldMyMemoWndPro=WindowProc; <---這裡寫得有點饒舌
WindowProc=MyMemoWndProc;
}
//---------------------------------------------------------------------------
void __fastcall MyMemo::MyMemoWndProc(TMessage& Message)
{
OldMyMemoWndPro(Message); if (Message.Msg==WM_CHAR) {
if (Lines->Count>LimiteLine) {
Lines->Delete(LimiteLine);
return;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//實用範例
MyMemo* MyMemo1=new MyMemo(this,10); <---宣告第一個Memo,限制行數10 MyMemo1->Parent=this;
MyMemo1->Left=1;
MyMemo1->Top=1;
MyMemo1->Width=200;
MyMemo1->Height=300;
MyMemo1->ScrollBars=ssVertical;
MyMemo1->Font->Size=14; MyMemo* MyMemo2=new MyMemo(this,5); <---宣告第一個Memo,限制行數5 MyMemo2->Parent=this;
MyMemo2->Left=220;
MyMemo2->Top=1;
MyMemo2->Width=200;
MyMemo2->Height=300;
MyMemo2->ScrollBars=ssVertical;
MyMemo2->Font->Size=14;
}
//------------------------------------------------------------------------
就這樣,定義自已的Memo物件後,要用幾個就宣告幾個,有些屬性要自已設就是了,that's all !
|
黑輪
中階會員
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:135 回覆:188 積分:64 註冊:2004-01-29
發送簡訊給我
|
哇~~so cool~~我也來試一下寫物件好了~~
感謝你哦~
|