STRG-Taste einrasten lassen

[egon.kaschuba]

Hallo ich brauche Hilfe,

ich möchte in einem DBGrid verschiedene Einträge Löschen.

Dabei nutze ich Multi-Select.Allerding muss ich die Taste STRG
gedrückt halen,wenn ich z.B.Datensatz 1 und Datensatz 10 Löschen möchte.

Ich habe von " HIMITSU " mir mal den Code zu eigen gemacht,Gott vergelt´s.

Nachdem ich in der Checkbox das Häckchen gesätzt habe und dann den Löschvorgang einleite
bekomme aber immer einen Indexfehler. ( - Table10.Delete; Table10.Edit - )
Wass mache ich falsch ???

Delphi-Quellcode:

procedure TForm2.Timer7Timer(Sender: TObject);
 Var P: TPoint;

    Begin
      If cbCtrl.Checked Then Begin
        P := TagesGrid.ScreenToClient(Mouse.CursorPos);
        If (P.X >= 0) and (P.Y >= 0) and (P.X < TagesGrid.Width) and (P.Y < TagesGrid.Height) Then
          Keybd_Event(VK_CONTROL, 0, 0, 0)
        Else
          Keybd_Event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);     
      End;
    End;

procedure TForm2.cbCtrlClick(Sender: TObject);
begin
   If not cbCtrl.Checked Then Keybd_Event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);  
end;