AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Zeile in DBGrid markieren

Ein Thema von Angel4585 · begonnen am 5. Jul 2006 · letzter Beitrag vom 5. Jul 2006
Antwort Antwort
Angel4585

Registriert seit: 4. Okt 2005
Ort: i.d.N.v. Freiburg im Breisgau
2.199 Beiträge
 
Delphi 2010 Professional
 
#1

Zeile in DBGrid markieren

  Alt 5. Jul 2006, 09:47
Hallo,

wie kann ich die aktuelle Zeile über welcher sich der Mauscursor befindet im DBGrid selebtieren?

Ich habs jetzt schon so probiert:

Delphi-Quellcode:
procedure TForm1.DBGridTestMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  with DBGridTest do
    DataSource.DataSet.RecNo:=MouseCoord(x,y).Y;
end;
Delphi-Quellcode:
procedure TForm1.DBGridTestMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  with DBGridTest do
    SelectedIndex:=MouseCoord(x,y).Y;
end;
aber beides bringt nicht den gewünschten Effekt,

ich möchte, dass die aktuelle Zeile über der sich der CUrsor befindet markiert wird und wenn ich an den unteren bzw. den oberen Rand des Grids gehe, das dann nach unten bzw. nach oben gescrollt wird.

Hat jemand schonmal sowas gemacht oder weis jemand wie das geht?

Danke schonmal

Martin Weber
Ich bin ein Rüsselmops
  Mit Zitat antworten Zitat
Angel4585

Registriert seit: 4. Okt 2005
Ort: i.d.N.v. Freiburg im Breisgau
2.199 Beiträge
 
Delphi 2010 Professional
 
#2

Re: Zeile in DBGrid markieren

  Alt 5. Jul 2006, 11:14
OK, also markieren kann ich die Zeilen so:
Delphi-Quellcode:
procedure TForm1.DBGridTestMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
lr,lc : Integer;
begin
with TStringGrid(DBGridTest) do
  try
    MouseToCell(X,Y,lc,lr);
    if (lr > 0)and(lr<RowCount) then
      begin
      Row:=lr;
      end;
  finally
    end;
end;
Das Problem was ich jetzt noch habe:

1.Ich muss mit dem Datensatz auf die selektiere Zeile springen, da ich das ja nur visuell markiert habe, ohne das sich das DBGrid "bewegt"
2.Ich muss nach oben und untern scrollen können, wenn ich an die entsprechenden Enden komme.

Hat jemand ne Idee?
Martin Weber
Ich bin ein Rüsselmops
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz