Hallo mr47,
so ist das eben, wenn man das Zeug nicht selber testet!
Hier ein funktionsfähiges Beispiel, soeben erfolgreich probiert:
Code:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
zel : integer;
s : string;
begin
zel := dbg1.SelectedRows.Count;
if zel = 0 then exit;
Tab1.DisableControls;
Tab1.Last;
while not Tab1.Bof do begin
if dbg1.SelectedRows.CurrentRowSelected then begin
// Aktion mit den ausgewählten Datensätzen ausführen
// hier: Lösche den gewählten Satz
Tab1.Delete;
end;
Tab1.Prior;
end;
Tab1.EnableControls;
end;
Viel Erfolg!
mfg
eddy