請教有沒有類似圖中這種元件 |
|
尚未結案
|
|
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 發送簡訊給我 |
發表時間：2004-10-04 19:54:08
IP:221.169.xxx.xxx 未訂閱
網海無涯，唯學是岸！
系統時間：2024-06-02 19:26:20
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |