全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1835
推到 Plurk!
推到 Facebook!

數個delphi控件問題

 
BennyFung8
一般會員


發表:5
回覆:14
積分:3
註冊:2007-01-03

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-01-25 19:01:22 IP:202.86.xxx.xxx 訂閱
我在練習delphi...
在模擬一個wordpad..
1.我用fontdialog..
如何設定在richedit 選了才使用fontdialog的屬性..
不選的就不用..
2.我想一個combobox中有我電腦內所安裝的字體....
是不是要設定某一個屬性的?(不是在items一個一個打上去.....)
3.我在看其他人做的範例,它有一句
e:=messagedlg('要儲存這個檔案嗎?',mtConfirmation,mbYesNoCancel,0);
這個0字代表甚麼?
------
真相永遠只有一個
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-01-26 09:12:38 IP:59.124.xxx.xxx 未訂閱
1.RichEdit 選了才用是什麼意思?
2.可以 ComboBox1.Items.Assign(Screen.Fonts); 的方式
3.判斷 MessageDlg 顯示時, 按 F1 會不會顯示 Help
BennyFung8
一般會員


發表:5
回覆:14
積分:3
註冊:2007-01-03

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-01-26 17:42:22 IP:202.86.xxx.xxx 訂閱

===================引 用 文 章===================
1.RichEdit 選了才用是什麼意思?
2.可以 ComboBox1.Items.Assign(Screen.Fonts); 的方式
3.判斷 MessageDlg 顯示時, 按 F1 會不會顯示 Help


1.即是我在richedit中輸入了一些文字
我想改變它當中數個字符的樣式..
我要如何做?
2.這個我打他change這個動作裡沒有任何返應...是不是要打在其他地方?
3.如果我不打'0'字改打其他1,2,3,4....可以嗎?可以又代表甚麼?
------
真相永遠只有一個
coa
一般會員


發表:1
回覆:16
積分:13
註冊:2004-07-18

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-01-26 17:54:13 IP:59.124.xxx.xxx 未訂閱
BennyFung8你好:
1. 打開你的 BCB/Delphi
2. 在上面的 File Edit xxx... Help中請按下 Help
3. 在 Help 顯示的清單中請按下第一個 "C Builder Help" 或是 "Delphi Help"
4. 把 messagedlg 輸入後按 Enter

Help 裡面的描述我就不寫出來囉

3.如果我不打'0'字改打其他1,2,3,4....可以嗎?可以又代表甚麼?

===================引 用 文 章===================

BennyFung8
一般會員


發表:5
回覆:14
積分:3
註冊:2007-01-03

發送簡訊給我
#5 引用回覆 回覆 發表時間:2007-01-29 23:14:05 IP:202.86.xxx.xxx 訂閱

===================引 用 文 章===================
BennyFung8你好:
1. 打開你的 BCB/Delphi
2. 在上面的 File Edit xxx... Help中請按下 Help
3. 在 Help 顯示的清單中請按下第一個 "C Builder Help" 或是 "Delphi Help"
4. 把 messagedlg 輸入後按 Enter

Help 裡面的描述我就不寫出來囉

3.如果我不打'0'字改打其他1,2,3,4....可以嗎?可以又代表甚麼?


...
這個我會嘗試的...
其他2個問題有沒有人能再解給我聽嗎....??

===================引 用 文 章===================

------
真相永遠只有一個
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#6 引用回覆 回覆 發表時間:2007-01-30 08:34:07 IP:59.124.xxx.xxx 未訂閱
1.參考 TRichEdit 的 DefAttributes 與 SelAttributes 的 help 說明
2.寫在 FormCreate 試試

===================引 用 文 章===================

===================引 用 文 章===================

1.RichEdit 選了才用是什麼意思?
2.可以 ComboBox1.Items.Assign(Screen.Fonts); 的方式
3.判斷 MessageDlg 顯示時, 按 F1 會不會顯示 Help
?
?
1.即是我在richedit中輸入了一些文字
我想改變它當中數個字符的樣式..
我要如何做?
2.這個我打他change這個動作裡沒有任何返應...是不是要打在其他地方?
3.如果我不打'0'字改打其他1,2,3,4....可以嗎?可以又代表甚麼?
BennyFung8
一般會員


發表:5
回覆:14
積分:3
註冊:2007-01-03

發送簡訊給我
#7 引用回覆 回覆 發表時間:2007-01-30 13:26:18 IP:202.86.xxx.xxx 訂閱
恩丫..
第1個問題我去查查吧..
唔明再問..
第2個問題成功了^^
------
真相永遠只有一個
BennyFung8
一般會員


發表:5
回覆:14
積分:3
註冊:2007-01-03

發送簡訊給我
#8 引用回覆 回覆 發表時間:2007-01-30 18:55:08 IP:202.86.xxx.xxx 訂閱
我查完help之後
第1個問題是不是這樣寫的??
richedit1.SelAttributes.Name:=fontdialog1.Font.Name;
richedit1.SelAttributes.Color:=fontdialog1.Font.Color;
richedit1.SelAttributes.Size:=fontdialog1.Font.Size;

------
真相永遠只有一個
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#9 引用回覆 回覆 發表時間:2007-01-31 12:16:44 IP:59.124.xxx.xxx 未訂閱
您是要被選取的字串變為 FontDialog1 所設定的字型嗎?
如果是的話, 這樣寫小弟測試是沒問題的...
BennyFung8
一般會員


發表:5
回覆:14
積分:3
註冊:2007-01-03

發送簡訊給我
#10 引用回覆 回覆 發表時間:2007-01-31 18:39:39 IP:202.86.xxx.xxx 訂閱

===================引 用 文 章===================
您是要被選取的字串變為 FontDialog1 所設定的字型嗎?
如果是的話, 這樣寫小弟測試是沒問題的...
恩丫
多謝指教...
現在又有另一個問題..
如何在段落前加上以下那個東西??
  • <--------個東西
------
真相永遠只有一個
BennyFung8
一般會員


發表:5
回覆:14
積分:3
註冊:2007-01-03

發送簡訊給我
#11 引用回覆 回覆 發表時間:2007-01-31 19:28:27 IP:202.86.xxx.xxx 訂閱
加多一個問題..
我在savedialog中設定了filter
裡面我打上2個副檔名
rtf同txt
我是不是只可以用以下那個方法為檔案加上副檔名?
x := savedialog1.FilterIndex;
case x of
1 : richedit1.Lines.SaveToFile(savedialog1.FileName '.rtf');
2 : richedit1.lines.savetofile(savedialog1.filename '.txt');
end;

------
真相永遠只有一個
BennyFung8
一般會員


發表:5
回覆:14
積分:3
註冊:2007-01-03

發送簡訊給我
#12 引用回覆 回覆 發表時間:2007-02-03 13:30:26 IP:202.86.xxx.xxx 訂閱

===================引 用 文 章===================
加多一個問題..
我在savedialog中設定了filter
裡面我打上2個副檔名
rtf同txt
我是不是只可以用以下那個方法為檔案加上副檔名?
x := savedialog1.FilterIndex;
case x of
1 : richedit1.Lines.SaveToFile(savedialog1.FileName '.rtf');
2 : richedit1.lines.savetofile(savedialog1.filename '.txt');
end;



這個問題我已經解決了....
但是又多了2個問題..

1.比如我在richedit中...
有一段文章在items.
......123456789......
我想在34中間加上 abc 3個字
在程式碼中我要點寫??

2.如何'highline'所選的文字?

------
真相永遠只有一個
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#13 引用回覆 回覆 發表時間:2007-02-05 19:29:30 IP:59.124.xxx.xxx 未訂閱
1.用 Insert 這個 procedure, 例如將 123 這個字串插入 RichEdit1:
<textarea class="delphi" rows="10" cols="60" name="code"> var s: string; begin s := RichEdit1.Text; Insert('123', s, 3); RichEdit1.Text := 2; end; </textarea>
2.Highlight 應該也可以用 SelAttributes 的方式吧.
vitojeng
一般會員


發表:2
回覆:13
積分:13
註冊:2003-10-06

發送簡訊給我
#14 引用回覆 回覆 發表時間:2007-02-05 20:46:14 IP:221.169.xxx.xxx 未訂閱
Delphi 內 \Demos\ActionBands 內就有個 WordPad 的 demo,
可以好好研究一下

希望對你有幫助囉~

===================引 用 文 章===================
我在練習delphi...
在模擬一個wordpad..
BennyFung8
一般會員


發表:5
回覆:14
積分:3
註冊:2007-01-03

發送簡訊給我
#15 引用回覆 回覆 發表時間:2007-02-08 12:37:54 IP:202.86.xxx.xxx 訂閱
恩丫..
我也不知道有這個東西...

===================引 用 文 章===================
Delphi 內 \Demos\ActionBands 內就有個 WordPad 的 demo,
可以好好研究一下

希望對你有幫助囉~

===================引 用 文 章===================

我在練習delphi...
在模擬一個wordpad..
------
真相永遠只有一個
BennyFung8
一般會員


發表:5
回覆:14
積分:3
註冊:2007-01-03

發送簡訊給我
#16 引用回覆 回覆 發表時間:2007-02-08 12:40:19 IP:202.86.xxx.xxx 訂閱
我試驗過..
但是不大明白..
有沒有範例給我看看...

我也知道可以用SelAttributes
但SelAttributes.xxxxx
那個xxx我不知道是用那個指令@@"

===================引 用 文 章===================
1.用 Insert 這個 procedure, 例如將 123 這個字串插入 RichEdit1:
<textarea class="delphi" rows="10" cols="60" name="code">var s: string; begin s := RichEdit1.Text; Insert('123', s, 3); RichEdit1.Text := 2; end; </textarea>
2.Highlight 應該也可以用 SelAttributes 的方式吧.
------
真相永遠只有一個
BennyFung8
一般會員


發表:5
回覆:14
積分:3
註冊:2007-01-03

發送簡訊給我
#17 引用回覆 回覆 發表時間:2007-02-08 12:41:11 IP:202.86.xxx.xxx 訂閱
又多了一個問題=.=
我想問..
如何知道讀進來的files的副檔名呢?
------
真相永遠只有一個
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#18 引用回覆 回覆 發表時間:2007-02-08 14:15:09 IP:59.124.xxx.xxx 未訂閱
用如下這個 function:

function ExtractFileExt(const FileName: string): string;


===================引 用 文 章===================
又多了一個問題=.=
我想問..
如何知道讀進來的files的副檔名呢?
BennyFung8
一般會員


發表:5
回覆:14
積分:3
註冊:2007-01-03

發送簡訊給我
#19 引用回覆 回覆 發表時間:2007-02-08 18:26:04 IP:202.86.xxx.xxx 訂閱
THX.
等我試試看

===================引 用 文 章===================
用如下這個 function:

function ExtractFileExt(const FileName: string): string;


===================引 用 文 章===================
又多了一個問題=.=
我想問..
如何知道讀進來的files的副檔名呢?
------
真相永遠只有一個
系統時間:2024-05-17 16:19:49
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!