該如何動態的設定Paragraph.tab的值?
例如以下內容:
1.
abc 1
|←定位點設為4字元
2.
當使用者輸入以下內容後，Enter後每按下tab鍵，會定位在|位置
abc 1 edfgh 2
| | |
有點類似程式編輯器的格式化

------
永遠都是新手

[code delphi]
unit fMain;

interface

uses
Windows, Classes, Messages, Controls, Dialogs, Forms, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
private
procedure DO_OnMessage(var Msg: TMsg; var Handled: Boolean);
public
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := DO_OnMessage;
Edit1.Text := 'AAA BBB CCC DDD EEE FFFFF';
end;

procedure TForm1.DO_OnMessage(var Msg: TMsg; var Handled: Boolean);
begin
if(ActiveControl is TEdit) and
(Msg.message=WM_KEYDOWN) and
(Msg.wParam=$09) then //TAB
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
Handled := True;
end;
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
I, L: Integer;
S: string;
begin
case Key of
VK_TAB:
begin
S := Edit1.Text;
L := Length(S);
I := Edit1.SelStart 1;
while (I#$20) do Inc(I);
while (I if I Edit1.SelStart := I;
end;
end;
end;

end.
[/code]

非常抱歉...
我試著把這個例子run了一下
但是只有一開始edit裡出現字以外
其他並無動作?
元件裡小弟只建立了一個edit
是不是哪裡有遺漏呢?

------
永遠都是新手

看不太懂你的意思耶。
不是按enter後再按tab鍵可將游標指向空白後的第一個字上方，怎麼看這程式都是ok的啊。
還是你想要的結果不是這樣的啊。

===================引 用 Reiji 文 章===================
非常抱歉...
我試著把這個例子run了一下
但是只有一開始edit裡出現字以外
其他並無動作?
元件裡小弟只建立了一個edit
是不是哪裡有遺漏呢?

------
RogersLu

被lu0720一說，發現真的可以，請原諒小弟的愚笨@@"
不過小弟要的確實也不是這樣
是有點類似word裡的tab定位點
所以是依第一行的空白去建立
第二行在按tab時會自動對齊第一行
例如第一行先輸入了兩個空白再打字
enter後第二行游標會停在兩個空白後的地方
而再按一次tab會與第一行的第二個空格對齊
也就是第2個例子

小弟是想到動態建立tab位置的想法
不知道可不可行?
建立定位點小弟是沒問題的
但問題就是該怎麼去給動態的定位點
還有要給幾個tab點...
而且搜尋動態建立tab點的方法也一直遍尋不著
不曉得是不是搜尋的關鍵字有問題

------
永遠都是新手

編輯記錄

小弟我用上面這個範例去加以修改成RichEdit的型態
並試著作出來，似乎也有所成效
但不知道該如何讓它的每一tab是一個字元?
已經用了Courier New字型和fpFixed設定
但卻有時有成效，有時沒有成效，而且字也並不會同一寬度
如果在第2行輸入內容
到了第3行又會以奇怪的方式亂跳
該怎麼樣作才能達到小弟想要的呢?

小弟作的範例
http://delphi.ktop.com.tw/download.php?download=upload/4869ed313f7bb_TabTest.zip

------
永遠都是新手

編輯記錄

看樣子...小弟的問題是無解?
唉唉...自己來推一下自己的問題...
不想缺席啊>"<~

------
永遠都是新手