有關Grid可否取值 |
尚未結案
|
bbeennnnyy123
一般會員 發表:10 回覆:0 積分:2 註冊:2004-09-22 發送簡訊給我 |
|
wameng
版主 發表:31 回覆:1336 積分:1188 註冊:2004-09-16 發送簡訊給我 |
|
deity
尊榮會員 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
引言: 請問一下能否在表格中點選某一欄位,然後開一個新視窗顯示欄位的祥細內容? bbeennnnyy123您好://点击单元格,在其顶点位置,出现一个新窗口 uses …… type TDumDBGrid=class(TDBGrid); type TForm1 = class(TForm) …… …… procedure TForm1.DBGrid1CellClick(Column: TColumn); var G:TDumDBGrid; P:TPoint; begin G := TDumDBGrid(DBGrid1); P := G.CellRect(G.Col, G.Row).TopLeft; P := G.ClientToScreen(P); // 轉成螢幕座標 with TForm.Create(nil) do begin try Left := P.X; Top := P.Y; Column.Field.AsString; ShowModal; finally Free; end; end; end;//以上摘至本站,具体是那个大大所作,都搞忘见谅 如果您单单想得到单元格的内容,可以参考下面也行: > >> > >>< face="Verdana, Arial, Helvetica"> ——行径窄处,留一步与人行—— 發表人 - deity 於 2004/11/04 09:21:10 |
wameng
版主 發表:31 回覆:1336 積分:1188 註冊:2004-09-16 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |