各位先進大家好,這是一個困擾我很久的問題.我在 Tstringgrid 的onselectcells寫上 以下程式碼: procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin while 1 = 1 do begin application.ProcessMessages; ..... if ... then break; end; end; 如果在此stringgrid快速捲動時此事件會重覆執行,我知是因為application.processmessage所造成的.但如果在while 回圈裡必須有此行,但又不希望while 迴圈未離開前,stringgrid的onselectcell事件又被觸發,是否有解決的方法?謝謝

Hi hello,

1.定義一個全域變數 RunSelectCell       ...
  private
    RunSelectCell : Boolean;
    { Private declarations }
  public
  ...    2.FormCreate 設定初始值
procedure TForm1.FormCreate(Sender: TObject);
begin
  RunSelectCell := True;
end;    3.SelectCell事件更改如下
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  if RunSelectCell then
    begin
      RunSelectCell := False;
      while 1 = 1 do
        begin
          Application.ProcessMessages;
          ...
          if ... then
            begin
              RunSelectCell := True;
              Break;
            end;
        end;
    end;
end;

發表人 -

------
Fishman

感謝fishman熱必的問答,不過我遭遇的問題是onselectcell事件不能觸發,fishman大大的方式還是觸發onselectcell,再利用runselectcell的全域變數控管onselectcell的某段程式不重覆執行,其實我是建構一個公用函數,裡有application.process而在onselectcell事件裡去呼叫此函數(當然也可在其他不同的程式碼區段呼叫),其程式架構如下： procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); var ans : string; ans1 : string; begin ... ans := do_xxx; .. ... ans1 := do_xxx; end; function Tform1.do_xxx:string; begin while 1 = 1 do begin application.processmessage; ... if .... then begin temp_str := ...; break; end; end; result := temp_str; end; end;

Hi hello,

如果在一進入 StringGrid1 的 OnSelectCell 事件將該 StringGrid 的 OnSelectCell 指向 nil 完成後再回復原來狀態呢(缺點是會有一點點 Delay)？    procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var
  ans : string;
  ans1 : string;
begin
  StringGrid1.OnSelectCell := NIL;
 ...
  ans := do_xxx;
  ...
  ans1 := do_xxx;
  StringGrid1.OnSelectCell := StringGrid1SelectCell;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

fishman謝謝你的回答,這正是我目前的處理方式,其實do_xxx()這個處理函數會這樣寫其實是在等候sever的問應,是要花一點時間.所以有一點點delay並不是什麼大問題,只是每次call do_xxx皆要在事件裡寫上這二段程式碼: StringGrid1.OnSelectCell := NIL; StringGrid1.OnSelectCell := StringGrid1SelectCell; 而在不同事件裡也是這種處理方式,雖然可達到控管的目的,只是在使用do_xxx這個函數總覺的不方便,我在想是否有一勞永逸的方法把控管的程式碼寫入do_xxx裡面呢? 再次感謝fishman熱心的光幫忙

看情形好像沒有更好的做法了.只好將此問題結案!!!