Mit Multiselect ALLE Datensätze markieren

[egon.kaschuba]

Hallo,

da habe ich nochmal eine Frage ?

Ich möchte aus dem DBGrid mit Multiselect alle
Datensätze auf einmal markieren.

Mit dem untere Code muss man jeden einzelnen Satz anklicken,
das ist lästig.

Wer kann mir einen Tip geben?

Gruß
- Egon



if (TagesGrid.SelectedRows.Count > 0) then
begin
with TagesGrid.DataSource.DataSet do
for l := 0 to TagesGrid.SelectedRows.Count - 1 do
begin
GotoBookmark(Pointer(TagesGrid.SelectedRows.Items[l]));
Table10.Edit;
VBeleg:=Table10.FieldbyName('BELEG').AsString ;
Table10['BELEG']:='Wurde schon Gebucht';
Table10.Post;table10.Refresh;
end;
TagesGrid.SelectedRows.Clear;
end ;

[alzaimar]

Das Standardverhalten wäre:
Erste Reihe anklicken, Shift+Letze Reihe anklicken. Keine Ahnung, ob das DBGrid das kann...

[egon.kaschuba]

Hi,

Alzaimar,nee habe ich auch schon dran Gedacht.
Geht aber nicht.

[Der.Kaktus]

Hallo ,

schau mal hier--->invertrow..musste nur umdrehen...Vielleicht hilfts ja.

[ConstantGardener]

Hallo egon.kaschuba,

folgender Code selektiert alle Zeilen des Grids

Delphi-Quellcode:

 with Query_Namen do
  begin
   DisableControls;
   First;
   While not EOF do
    begin
     DBGrid_Namen.SelectedRows.CurrentRowSelected:=true;
     next;
    end;
   First;
   EnableControls;
  end;

mfg

ConstantGardener

[egon.kaschuba]

Hallo ConstantGardener

Hab mal bei SwissDelphiCenter.ch
gegoogelt und habe das gefunden.

Klappt prima.

Trotzdem Danke.

Gruß
-Egon


function GridSelectAll(Grid: TDBGrid): Longint;
begin
Result := 0;
Grid.SelectedRows.Clear;
with Grid.DataSource.DataSet do
begin
First;
DisableControls;
try
while not EOF do
begin
Grid.SelectedRows.CurrentRowSelected := True;
Inc(Result);
Next;
end;
finally
EnableControls;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GridSelectAll(DBGrid1);
end;

[alzaimar]

Entspricht so ziemlich genau dem Code von ConstantGardener.

Verwende doch die Delphi-Tags in Zukunft. Dazu einfach den Code markieren, und auf den 'Delphi-Code' Button drücken.

[ConstantGardener]

@Egon : da nich für...

@alzaimar : 8)

Grüsse ConstantGardener