(TDBGrid) - Klick auf den indicator abfangen?

[100nF]

hallo zusammen,

ich habe eine kleine aber wichtige frage: wie kann ich einen klick auf den indicator eines DBGrids abfangen, das heillt, sobald ich auf den indicator klicke, muss eine procedure ausgeführt werden. wichtig ist auch, dass die zeile, bei der auf den indicator geklickt wurde, zur aktuellen zeile wird, und auch der datensatz.

ich denke das ist nicht sehr schwierig, aber ich habe noch nichts darüber gefunden.

schon mal danke im voraus, ich hoffe ihr könnt mir helfen

[Albi]

Hallo,

wenn ich das richtig verstanden habe, dann soll der aktuelle DS makiert und eine Aktion ausgeführt werden.

Dann setze im OP einfach die Option alwayShowSelection auf true, so wird die gesamte Zeile makiert und im onClick- o.onDBClick-Ereignis kannst du die gewünschte Aktion ausführen.

Durch den Click auf den Datensatz im DBGrid wird der Datensatzzeiger automatisch auf den aktuellen DS gesetzt. Darum brauchst Du dich also nicht kümmern.

[100nF]

ok, das hab ich
aber wie kann ich jetzt einen klick auf den indicator abfangen?

[eddy]

Hallo urbanbruhin,

ich nehme an, daß Du die linke graue Spalte als "indicator" bezeichnest.

Auf "OnMouseDown" reagiert - wie's aussieht - das Standard-TDBGrid nicht. Im TRxDBGrid hingegen kann man eine Auswertung vornehmen.

Code:

procedure TFAllgUP2.dbg201MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if x < 20 then begin
    // gezielte Reaktion auf die Position des Mauszeigers
  end;
end;

mfg
eddy

[100nF]

also das fuktioniert nicht

[eddy]

Hallo urbanbruhin,

Du mußt Dir schon die Mühe machen und zuvor einer Version von "RX Library 2.75" zu installieren.

Getestet und funktionsfähig mit TRxDBGrid

Code:

procedure TForm1.dbg1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  BotStat00.Caption := 'X/Y=' + IntToStr(x) + '/' + IntToStr(y);
end;

procedure TForm1.dbg1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if x < 11 then begin
    if Button = mbLeft then begin   //, mbRight, mbMiddle
      ShowMessage('Linke Maustaste am linken Rand gedrückt');
    end;
  end;
end;

mfg
eddy

[100nF]

aber das ist ja das selbe wie das von vorher: wenn der cursor soviel x hat, passierts

gibt es keine andere möglichkeit?

Zitat:

Du mußt Dir schon die Mühe machen und zuvor einer Version von "RX Library 2.75" zu installieren.

was ist gut an diesem teil?

[eddy]

Hallo urbanbruhin,

ganz einfach: damit funktioniert es!!!

Habe ich aber oben schon geschrieben:

Zitat:

Auf "OnMouseDown" reagiert - wie's aussieht - das Standard-TDBGrid nicht. Im TRxDBGrid hingegen kann man eine Auswertung vornehmen.

Du kannst natürlich auch eine eigene DBGrid-Komponente aus der Standard-Version herleiten und entsprechend verbessern, zumindest theoretisch.


mfg
eddy

[100nF]

und dieser neue dbgrid kann ich auch einfach mit einem TDataSource verbinden?

wenn ja: wüsstest du gerade, wo man dieses "teil" downloaden kann?
wenn nein: dann nützt es mir nichts

[Sharky]

Zitat von urbanbruhin:

...wenn ja: wüsstest du gerade, wo man dieses "teil" downloaden kann?....

Hai urbanbruhin,

TRxDBGrid ist bestandteil der RxTools. Da diese jedoch nicht weiterentwickelt werden empfehle ich dir eher die JVCL. Meines wissens wurden dort die Komponenten der RxTools eingebaut.