was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1547)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (115)
IDE (21)
Indy (5)
Internet / LAN (131)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (127)
Strings (83)
System (268)
VCL (243)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

41 Visitors Online


 
...in einen DBGrid mehrere Datensätze mit Shift markieren (wie im Windows Explorer)?
Autor: Michael Meyer
[ Tip ausdrucken ]  

Tip Bewertung (11):  
     


//Folgendes muss eingebaut werden

property BM1: TBookmark read FBM1 Write SetBM1;

property BM2: TBookmark read FBM2 Write SetBM2;

procedure Markieren(Sender: TObject);
  function Shiftgedr: Boolean;


    procedure TForm1.Markieren(Sender: TObject);
    var
      
Richtung: string;
      TempBM: TBookmark;
    begin
      with 
(Sender as TDBGRID).DataSource.Dataset do 
      begin
        if 
(BOF and EOF) then
          
Exit;
        DisableControls;
        try
          try
            
GotoBookmark(BM1);
            case DBGrid1.DataSource.DataSet.CompareBookmarks(BM1, BM2) of
                
-1: Richtung := 'Unten';
              1: Richtung    := 'Oben';
              0: Richtung    := 'Gleich';
            end;
            TempBM := DBGrid1.DataSource.DataSet.GetBookmark;
            while DBGrid1.DataSource.DataSet.CompareBookmarks(BM2, TempBM) <> 0 do 
            begin
              
DBGrid1.SelectedRows.CurrentRowSelected := True;
              if Richtung = 'Unten' then
                
Next
              else
                
Prior;
              TempBM := DBGrid1.DataSource.DataSet.GetBookmark;
            end;
          finally
            
FreeBookmark(tempbm);
          end;
        finally
          
EnableControls;
        end;
      end;
    end;

    function TForm1.Shiftgedr: Boolean;
    var
      
State: TKeyboardState;
    begin
      
GetKeyboardState(State);
      Result := ((State[VK_SHIFT] and 128) <> 0);
    end;

    //Im "OnMouseUP" des Grids folgenden Code einbauen
  
begin
    if not 
Shiftgedr then
      
Merke1 := nil;

    if Merke1 = nil then
      
Merke1 := DBGrid1.DataSource.DataSet.GetBookmark
    else
      
Merke2 := DBGrid1.DataSource.DataSet.GetBookmark;

    if (Merke1 <> niland (Merke2 <> nilthen 
    begin
      if 
Shiftgedr then 
      begin
        
Markieren(Sender);
      end;
    end;
  end;


 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners