新手目前面臨的困擾...請各位大大引領一下方向~ |
|
尚未結案
|
|
speeddragon
一般會員   發表：2 回覆：2 積分：0 註冊：2002-12-24 發送簡訊給我 |
|
|
小貓
一般會員 發表：14 回覆：23 積分：12 註冊：2002-07-04 發送簡訊給我 |
|
|
ccchen
版主  發表：61 回覆：940 積分：1394 註冊：2002-04-15 發送簡訊給我 |
簡單的示範給你看, 再自行寫完整
uses中加上Clipbrd
procedure TForm1.paste1Click(Sender: TObject);
var w:integer;
begin
w:=Listbox1.Canvas.TextWidth(clipboard.astext); //由clipboard取得字串
if (w > Listbox1.ClientWidth) and(w > listbox1.scrollwidth) then //如果長度超過
Listbox1.ScrollWidth:=w; //設定scrollwidth, 此值大於clientwidth時產生scrollbar
Listbox1.Items.Insert(listbox1.ItemIndex,clipboard.astext); //insert字串
end; procedure TForm1.copy1Click(Sender: TObject);
begin
clipboard.astext:=Listbox1.Items[listbox1.ItemIndex];
end; procedure TForm1.cut1Click(Sender: TObject);
begin
if (Listbox1.itemindex >=0) then
Listbox1.Items.Delete(listbox1.ItemIndex);
end;
長字串被刪除時, 應調整scrollwidht, 自己想吧
|
|
speeddragon
一般會員 發表：2 回覆：2 積分：0 註冊：2002-12-24 發送簡訊給我 |
|
|
banson1716
高階會員 發表：55 回覆：182 積分：167 註冊：2002-04-14 發送簡訊給我 |
|
|
ccchen
版主 發表：61 回覆：940 積分：1394 註冊：2002-04-15 發送簡訊給我 |
|
|
wenberg
一般會員 發表：6 回覆：15 積分：9 註冊：2002-12-26 發送簡訊給我 |
|
|
ccchen
版主 發表：61 回覆：940 積分：1394 註冊：2002-04-15 發送簡訊給我 |
發表時間：2002-12-25 10:49:40
IP:211.72.xxx.xxx 未訂閱
系統時間：2024-11-23 5:49:42
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |