treplacedialog元件是tfinddialog類的特殊版本，提示使用者查詢和替換字串，與「查詢」對話方塊相同，替換對話方塊是乙個無模式的windows對話方塊。
**示例（窗體上新增按鈕、richedit、replacedialog）：
開啟替換對話方塊
begin
replacedialog1.top:= 200
; replacedialog1.left:= 400
; replacedialog1.execute;
end;
procedure tform1.replacedialog1find(sender: tobject);//
在文字中查詢要替換的內容
varfoundat: longint;
startpos,toend: integer;
begin
with richedit1 do
begin
if sellength<> 0
then
startpos:= selstart+sellength
else
startpos:= 0
; toend:= length(text)-startpos;
foundat:=findtext(replacedialog1.findtext,startpos,toend,[stmatchcase]);
if foundat <> -1
then
begin
setfocus;
selstart:=foundat;
sellength:=length(replacedialog1.findtext);
end;
end;end
;procedure
tform1.replacedialog1replace(sender: tobject);
varselpos: integer;
begin
//對文字進行單個替換
if frreplace in replacedialog1.options then
begin
with treplacedialog(sender) do
begin
selpos:=pos(findtext,richedit1.lines.text);
if selpos> 0
then
begin
richedit1.selstart:= selpos- 1
; richedit1.sellength:=length(findtext);
richedit1.seltext:=replacetext;
endelse
messagedlg(concat(
'could not find
',findtext,'
in memo1.
'),mterror,[mbok],0
);
end;
//對文字進行全部替換
if frreplaceall in replacedialog1.options then
while true do
begin
with treplacedialog(sender) do
begin
if selpos= 0
then
break;
selpos:=pos(findtext,richedit1.lines.text);
if selpos> 0
then
begin
richedit1.selstart:= selpos- 1
; richedit1.sellength:=length(findtext);
richedit1.seltext:=replacetext;
end;
end;
end;
end;end;
程式中的對話方塊應用（4） 」顏色「對話方塊
tcolordialog元件用於顯示選擇顏色的對話方塊，當使用者選擇乙個顏色並單擊 ok 按鈕後，所選顏色會被儲存到 color 屬性中。1 將 顏色 對話方塊中所選的顏色值應用到元件中示例 colordialog1.execute memo1.text colortostring colordia...
對話方塊中顯示對話方塊
一 對話方塊中顯示對話方塊的方法 1 首先建立要在對話方塊裡顯示的那個對話方塊，命名為 idd inner 設定這個對話方塊的屬性 1 style 選擇 child 中文版 樣式 選擇 下層 2 border 為 none 中文版 邊框 選擇 無 2 為了顯示時能夠準確定位，我們可以在右邊要顯示對話...
對話方塊 訊息對話方塊
我們在使用windows系統的過程中經常會見到訊息對話方塊，提示我們有異常發生或提出詢問等。因為在軟體開發中經常用到訊息對話方塊，所以mfc提供了兩個函式可以直接生成指定風格的訊息對話方塊，而不需要我們在每次使用的時候都要去建立對話方塊資源和生成對話方塊類等。這兩個函式就是cwnd類的成員函式mes...