void __fastcall TForm1::Memo1Change(TObject *Sender)
{
  if(Memo1->CaretPos.x>=20) //為你目前游標的位置可填上你的memo元件的"寬度"
    keybd_event(VK_RETURN,0,0,0); //模擬按下enter
}
//不要用c的換行字元\n~否則複製memo元件內容會有不正常的字產生

引言: Hi~benson5033 參考如下寫法於Memo1Change事件中加入~

 
void __fastcall TForm1::Memo1Change(TObject *Sender)
{
  if(Memo1->CaretPos.x>=20) //為你目前游標的位置可填上你的memo元件的"寬度"
    keybd_event(VK_RETURN,0,0,0); //模擬按下enter
}
//不要用c的換行字元\n~否則複製memo元件內容會有不正常的字產生

發表人 - rogan321 於 2005/01/19 00:26:22

 
#include 
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#include "Clipbrd.hpp"
TForm1 *Form1;
int startPos=0;
int nowPos=0;
bool clip=false;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{    startPos=Memo1->Text.Length();//開始的字串長度
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1Change(TObject *Sender)
{
    if(Memo1->CaretPos.x>=20&&clip!=true)
    {
     keybd_event(VK_RETURN,0,0,0);
     startPos=Memo1->Text.Length(); //更動後的字串長度
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
   if((Shift.Contains(ssCtrl))&&(Key=='v'||Key=='V'))
   {
     clip=true;           //偵測貼上的動作
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1KeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(clip)
    {
     nowPos=Memo1->Text.Length();  //貼上後的長度
     Memo1->SetFocus();
     if(nowPos>startPos)
      {
        int tmp=nowPos-startPos;   //貼多長的字串
        int len=22;                //設定memo的寬度要加上換行字元
        if(tmp>len)                //此演算只考慮由第一列開始貼起
        { int tmp2=startPos-1;    //以及無考慮剛開始無換行字元的存在
           while(tmp2SetFocus();
            Memo1->SelStart=tmp2; //移動游標
            Memo1->Text=Memo1->Text.Insert("\r\n",tmp2); //插入換行
           }
         }
       }
       clip=false;
    }
}

引言:

引言: Hi~benson5033 參考如下寫法於Memo1Change事件中加入~

 
void __fastcall TForm1::Memo1Change(TObject *Sender)
{
  if(Memo1->CaretPos.x>=20) //為你目前游標的位置可填上你的memo元件的"寬度"
    keybd_event(VK_RETURN,0,0,0); //模擬按下enter
}
//不要用c的換行字元\n~否則複製memo元件內容會有不正常的字產生

發表人 - rogan321 於 2005/01/19 00:26:22

這個方法是可以，但是如果我不是直接keyin，是用複製貼上的方法的話就 不行了，怎麼辦呢?

    benson5033你好：    這個問題相當的不好處理，在找到較佳解之前、之後都還是不太好做，以下將細細分析一下!    首先，因為元件本身有自動換行的能力(當遇到輸入字串會碰到>  >!    所以你的問題簡單一點，也是可以一行解決的(>//在你編輯完>> >    所以上述雖可一行解決，但卻不是最佳解法，你還必需自已把問號去掉，可以自已寫程式，也可以先將>這個 >!            發表人 - 
        

引言:

引言: Hi~benson5033 參考如下寫法於Memo1Change事件中加入~ 發表人 - rogan321 於 2005/01/19 00:26:22

這個方法是可以，但是如果我不是直接keyin，是用複製貼上的方法的話就 不行了，怎麼辦呢?