Stringgrid mehrfachselektierung auswerten

[Schaedel]

Hallo und guten Morgen,

ich möchte in einem Stringgrid mehrere Spalten selektieren und die Selektion auswerten.

Also z.b. Die 1.-5. Zeile markieren und dann mit einem Popupmenu etwas ausführen.

Jemand eine Idee?

Dank im Vorraus!

[stonimahoni]

Hi...


sicher gibt es da was...ich hab zwar kein Stringgrid sondern ein DB Grid aber die sollten sich net so sehr unterscheiden...

da gibts im OI unter Optionen des Grids den Punkt Multiselect - den auf true setzen.
Genauso wie Rowselect.

Und dann halt noch ne Funktion tippen die dir alle selektierten DS abfrägt und dann was ausführt. Ich habe das mit Bookmarks realisiert.


MFg


Carsten

[Sebastian R.]

Zitat:

Zitat von stonimahoni

ich hab zwar kein Stringgrid sondern ein DB Grid aber die sollten sich net so sehr unterscheiden...

DB Grid ist eine abgeleitete Klasse von StringGrid. Muss also da sein!

[Schaedel]

Erstmal danke ;)
Das mit dem OI hab ich schon hinbekommen ;) Bin ja nich gerade neu :P

Von den Bookmarks hab ich schon gehört...
Ich setz mich mal dran ...

[stonimahoni]

Zu den Bookmarks :


habe das grade mal bei mir rauskopiert....müsstest Du halt anpassen:

Delphi-Quellcode:

   if (FormAuftragStat.DBGridAuftrStatListe.SelectedRows.Count > 0) then
      with FormAuftragStat.DBGridAuftrStatListe.DataSource.DataSet do
      for i:=0 to FormAuftragStat.DBGridAuftrStatListe.SelectedRows.Count-1 do
      begin
         GotoBookmark(pointer(FormAuftragStat.DBGridAuftrStatListe.SelectedRows.Items[i]));
  ....
  .... 
  ....

Vielleicht hilft es Dir ja.


ps: bin auch ein Saarländer ;)

MFG


Carsten

[Schaedel]

Das mit den Bookmarks funktioniert nicht mit einen normalen Stringgrid.

Delphi-Quellcode:

function IsCellSelected(StringGrid: TStringGrid; X, Y: Longint): Boolean;
begin
  Result := False;
  try
    if (X >= StringGrid.Selection.Left) and (X <= StringGrid.Selection.Right) and
      (Y >= StringGrid.Selection.Top) and (Y <= StringGrid.Selection.Bottom) then
      Result := True;
  except
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsCellSelected(stringgrid1, 2, 2) then
    ShowMessage('Cell (2,2) is selected.');
end;

So gehts aber auch :mrgreen:

trotzdem danke für die Hilfe!
:cat: