请问各位 怎么样实现从STRINGGRED中选取多行后加入另外一个STRINGGRED并且将选中的ROW删掉!!

參考 http://delphi.ktop.com.tw/topic.php?topic_id=71765 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=72350 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

好的,我去看看先,不明白的我再回来问前辈!!!

前辈,为什么你给的例子都是DBGrid的例子啊,我想看看关于stringgrid的例子!!

Sorry ! 最近越來越迷糊 ...... 要實現 TStringGrid MultiSelect 事實上，是不難的。 但有點繁雜。並需自行判斷複選的動作 如：Ctrl or Shift 並在DrawCell 處理反白。 現在沒有時間，無法進一步提供給你的範例碼。 若懶得改寫。 建議 找一下這方面的加強元件。 或使用 ListView (List 模式) 參考 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

有人可以帮帮我吗?

谢谢,前辈 我现在是接着别人的程序接着写的,如果换元件的话，需要改很多逻辑，时间上是来不及了！！ 郁闷啊．．．．

我臨時寫一下。 只判斷 Ctrl 複選。 參考一下。

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids;    type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    SelectedRows : Array of Boolean;
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLength(SelectedRows,StringGrid1.RowCount);
end;    procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  I :integer;
  ARect:TRect;
  OldSelected:Boolean;
begin
  if (ssCtrl in Shift) and (Button=mbLeft) then
  begin
    SelectedRows[StringGrid1.Row] := True;
  end else for I:=0 to StringGrid1.RowCount-1 do
           begin
             OldSelected := SelectedRows[I];
             SelectedRows[I] := I = StringGrid1.Row;
             if SelectedRows[I]<> OldSelected then
             begin
               ARect := StringGrid1.CellRect(0,I);
               With ARect do ARect := Rect(0,Top,StringGrid1.Width,Bottom);
               Windows.InvalidateRect(StringGrid1.Handle,@ARect,True);
             end;
           end;
end;    procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (ACol>0) and (ARow>0) and SelectedRows[ARow] then
    With StringGrid1 do
    begin
      Canvas.Brush.Color := ClHighLight;
      Canvas.Font.Color  := ClHighLightText;          Canvas.TextRect(Rect, Rect.Left 2, Rect.Top 2, Cells[ACol, ARow]);
    end;
end;

～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～