請教有沒有類似圖中這種元件 |
尚未結案
|
seedbcc
高階會員 發表:232 回覆:272 積分:105 註冊:2003-12-10 發送簡訊給我 |
|
wameng
版主 發表:31 回覆:1336 積分:1188 註冊:2004-09-16 發送簡訊給我 |
|
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
|
seedbcc
高階會員 發表:232 回覆:272 積分:105 註冊:2003-12-10 發送簡訊給我 |
|
likush
高階會員 發表:5 回覆:235 積分:103 註冊:2002-10-08 發送簡訊給我 |
|
seedbcc
高階會員 發表:232 回覆:272 積分:105 註冊:2003-12-10 發送簡訊給我 |
|
wameng
版主 發表:31 回覆:1336 積分:1188 註冊:2004-09-16 發送簡訊給我 |
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
CanSelect := (ACOL>0) and (AROW>0);
if CanSelect and (ACOL=1) then
begin
StringGrid1.Invalidate;
end;
end; procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (AROW>0) and (AROW=StringGrid1.ROW) and (ACOL=0) then
With StringGrid1.Canvas do
begin
Brush.Color := clHighlight;
FillRect(Rect);
Font.Color := clHighlightText;
TextOut(Rect.Left 2,Rect.Top 2,StringGrid1.Cells[ACol,ARow]);
end;
end; 用 TstringGrid 就可以了
用太多Thrd-paty元件,日後維護較困難及重複開發的問題。 建立 TstringGrid 將 FixedCol:=0 及FixedRow:=0
OPTIONS := [goVertLine,goHorzLine]; 自己編寫新增及移除就可以了。
|
likush
高階會員 發表:5 回覆:235 積分:103 註冊:2002-10-08 發送簡訊給我 |
以您的需求而言
放leftlist, rightlist二個元件,移動方面則以
leftlist.MoveSelection(rightlist);
相反則二個元件互換位置,畫面設定方面則listview則完全能作到您貼上的畫面需求,至於用法方面,我想這個很難說得完整與清楚,您可多試試該元件的各種用法或到站上搜尋該元件的各項相關討論,相信對於你應用各元件方面應有相當多的助益。 =========================
讀萬卷書~不如來K.TOP走一遭
=========================
|
likush
高階會員 發表:5 回覆:235 積分:103 註冊:2002-10-08 發送簡訊給我 |
|
seedbcc
高階會員 發表:232 回覆:272 積分:105 註冊:2003-12-10 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |