如何在DBGrid1指定欄位點選後自動帶出下拉選項 |
缺席
|
kevinsoung
一般會員 發表:36 回覆:41 積分:15 註冊:2011-11-09 發送簡訊給我 |
各位老師與大大
我用下面的方式完成了在第二的欄位可出現下拉選項 問題是我在第二個欄位部門名稱的地方必須點兩下才能出現下拉選項 可以點一下該欄位時就出現下拉選項嗎? 請各位老師與大大幫幫忙 [code delphi] Table1.DatabaseName:='C:\HQData'; Table1.TableName:='HQName.DB'; Table1.Active:=True; self.DBGrid1.Columns[0].Title.Caption :='編號'; self.DBGrid1.Columns[0].Width:=50; self.DBGrid1.Columns[0].Alignment:=taCenter; self.DBGrid1.Columns[0].Title.Alignment:=taCenter; //標題文字置中 self.DBGrid1.Columns[0].ReadOnly:=True; self.DBGrid1.Columns[1].Title.Caption :='部門名稱'; self.DBGrid1.Columns[1].Width:=80; self.DBGrid1.Columns[1].Alignment:=taCenter; //內容置中 self.DBGrid1.Columns[1].Title.Alignment:=taCenter; //標題文字置中 self.DBGrid1.Columns[1].DropDownRows:=15; self.DBGrid1.Columns[1]. self.DBGrid1.Columns[2].Title.Caption :='說明 '; self.DBGrid1.Columns[2].Width:=200; self.DBGrid1.Columns[2].Title.Alignment:=taCenter; //標題文字置中 self.DBGrid1.Columns[2].ReadOnly:=True; Query1.Active:=False; Query1.DatabaseName:='C:\HQData'; Query1.Close; Query1.SQL.Clear; Query1.SQL.Text:='Select NameNo,Name,NameActive From HQPP.DB Where NameActive=''True'' '; Query1.Active:=True; While Not Query1.Eof Do Begin strDepartment1 := Query1.FieldByName('Name').AsString; self.DBGrid1.Columns[1].PickList.Add(strDepartment1); Query1.Next; End; Query1.Active:=False; [/code] 編輯記錄
kevinsoung 重新編輯於 2012-04-23 23:30:47, 註解 無‧
kevinsoung 重新編輯於 2012-04-23 23:32:09, 註解 無‧ kevinsoung 重新編輯於 2012-04-23 23:33:40, 註解 無‧ kevinsoung 重新編輯於 2012-04-23 23:34:45, 註解 無‧ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |