如何在StringGrid 下指令給予Default值 |
尚未結案
|
doll_candy
初階會員 ![]() ![]() 發表:110 回覆:53 積分:32 註冊:2002-04-22 發送簡訊給我 |
|
chih
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
|
doll_candy
初階會員 ![]() ![]() 發表:110 回覆:53 積分:32 註冊:2002-04-22 發送簡訊給我 |
|
ddy
站務副站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:262 回覆:2105 積分:1169 註冊:2002-07-13 發送簡訊給我 |
妳可以用變數將所點選的col / row 先存起來,然後再指定
可以參考下面範例
var
iCol,iRow:integer; //以全域變數保存最新的位置
procedure TForm1.StringGrid1Click(Sender: TObject);
begin
//於最新的位置指定資料
StringGrid1.Cells[icol,irow]:=inttostr(icol)+':'+inttostr(irow) ;
end; //取得目前mouse 所點的位置
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
StringGrid1.MouseToCell(x,y,iCol,iRow);
end;
|
doll_candy
初階會員 ![]() ![]() 發表:110 回覆:53 積分:32 註冊:2002-04-22 發送簡訊給我 |
|
ddy
站務副站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:262 回覆:2105 積分:1169 註冊:2002-07-13 發送簡訊給我 |
|
Justmade
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
|
bestlong
站務副站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:126 回覆:734 積分:512 註冊:2002-10-19 發送簡訊給我 |
|
chih
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
|
bestlong
站務副站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:126 回覆:734 積分:512 註冊:2002-10-19 發送簡訊給我 |
如果你是要 Focus Cell[x,y] 的話, 下列程式碼參考看看吧 procedure TForm1.Button1Click(Sender: TObject);
var
iX,iY:integer;
myRect: TGridRect;
begin
iX:=3;
iY:=4;
myRect.Top := iX;
myRect.Left := iY;
myRect.Bottom := iX;
myRect.Right := iY;
StringGrid1.Selection := myRect;
StringGrid1.SetFocus;
end; 我是雪龍
------
http://blog.bestlong.idv.tw/ http://www.bestlong.idv.tw/ http://delphi-ktop.bestlong.idv.tw/ |
doll_candy
初階會員 ![]() ![]() 發表:110 回覆:53 積分:32 註冊:2002-04-22 發送簡訊給我 |
引言: 請問一下你所述的 1.要怎麼去知道要更改位置 2.怎麼知道你要清除畫面??//////////////////////////////////// 我的程式片斷如下: //依據Col 1之NO 條件開啟另一畫面 procedure TFSales_Q.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin iCol := ACol-2; CanSelect := (StringGrid1.Cells[ACol,ARow]<> ''); SalesNO := StringGrid1.Cells[1,ARow]; SalesName := StringGrid1.Cells[2,ARow]; if SalesNO ='' then begin MessageDlg('NO IS EMPTY',mtWarning,[mbOK],0); exit; end; if iCol>=1 then begin if CanSelect then begin Application.CreateForm( TFSalesSelectCell , FSalesSelectCell ); FSalesSelectCell.ShowModal ; end else begin MessageDlg('Cells Is Empty',mtWarning,[mbOK],0); exit ; end; end else begin MessageDlg('Cells is no Value',mtWarning,[mbOK],0); exit ; end; end; //清除資料並恢復成剛開使畫面 procedure TFSales_Q.ComboBox1Change(Sender: TObject); begin with ComboBox1 do begin IF ComboBox1.ItemIndex = -1 Then Begin ShowMessage('Please repeat again'); ComboBox1.SetFocus; End; PageControl1.ActivePageIndex := 1; DBList.Items.Clear; KHList.Items.Clear; IF DBList.Visible = TRUE THEN DBList.Visible:=False; IF btDB.Visible = TRUE THEN btDB.Visible:=False; IF KHList.Visible = TRUE THEN KHList.Visible:=False; IF btKH.Visible = TRUE THEN btKH.Visible:=False; for i := 1 to StringGrid1.Rowcount-1 do StringGrid1.Rows[i].Clear; StringGrid1.RowCount := 2; //--尚不會寫--// // 將focus cells[3,1]; end; // //////////////////////////////////////////////////////////////// 這是拙作,請多指教 Thanks引言: 更改目前位置於我想置放的位置 當我要清除畫面時
------
doll_candy |
bestlong
站務副站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:126 回覆:734 積分:512 註冊:2002-10-19 發送簡訊給我 |
引言: //////////////////////////////////// 我的程式片斷如下: //清除資料並恢復成剛開使畫面 procedure TFSales_Q.ComboBox1Change(Sender: TObject); begin with ComboBox1 do begin IF ComboBox1.ItemIndex = -1 Then Begin ShowMessage('Please repeat again'); ComboBox1.SetFocus; End; PageControl1.ActivePageIndex := 1; DBList.Items.Clear; KHList.Items.Clear; IF DBList.Visible = TRUE THEN DBList.Visible:=False; IF btDB.Visible = TRUE THEN btDB.Visible:=False; IF KHList.Visible = TRUE THEN KHList.Visible:=False; IF btKH.Visible = TRUE THEN btKH.Visible:=False; for i := 1 to StringGrid1.Rowcount-1 do StringGrid1.Rows[i].Clear; StringGrid1.RowCount := 2; //--尚不會寫--// // 將focus cells[3,1]; end; // //////////////////////////////////////////////////////////////// 這是拙作,請多指教 Thanks
------
http://blog.bestlong.idv.tw/ http://www.bestlong.idv.tw/ http://delphi-ktop.bestlong.idv.tw/ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |