Einträge im DBGrid markieren

[Helmut F. Zmaritsch]

Hallo,

wie kann man statt die Zeilen im DBGrid anzuklicken, diese per Programmcode markieren ?

Diese werden dann über die Bookmarkliste Grid.SelectedRows ausgelesen, welches soweit klar ist.

Danke für die Hilfestellung<br>Helmut

[Andreas Kosch]

Hallo,

das folgende Beispiel demonstriert die Markierung von mehreren Zeilen im DBGrid:
<pre>
procedure TForm1.Button1Click(Sender: TObject);
begin
DBGrid1.SelectedRows.CurrentRowSelected := True;
DBGrid1.DataSource.DataSet.Next;
DBGrid1.DataSource.DataSet.Next;
DBGrid1.SelectedRows.CurrentRowSelected := True;
end;
</pre>

Die Zuweisung ist nur dann erfolgreich, wenn <b>dgRowSelect</b> und <b>dgMultiSelect</b> im <b>Options</b>-Set enthalten sind:
<pre>
object DBGrid1: TDBGrid
Left = 16
Top = 56
Width = 561
Height = 257
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
</pre&gt