Setfocus auf dbgrid

[Luckner]

Hallo,
folgendes Problem. Habe ein Dbgrid, eigebettet in einem Frame. Ebenso in diesem Frame ist ein Panel mit einet Schliessen-Button. Würde gerne, wenn auf Button schliessen gedrückt, dann auf Dbgrid springen (1.-ter Datensatz) und anschliessend ohne die Maus in die Hand zu nehmen, weiter mit den Pfeil-Tasten im Grid rauf oder runter mich bewegen. Mit dbgrid.setfocus funktioniert es nicht. Wenn ich mit der Maus auf Dbgrid klicke, dann geht es wieder. Habe schon mit dbgridcellclick(nil) probiert, funktioniert auch nicht.

Danke, Luckner

[DeddyH]

Lass doch das DBGrid DBGrid sein und navigiere stattdessen durch die verbundene Datenmenge, oder habe ich das Problem missverstanden?

[Perlsau]

Zitat von Luckner:

Mit dbgrid.setfocus funktioniert es nicht. Wenn ich mit der Maus auf Dbgrid klicke, dann geht es wieder. Habe schon mit dbgridcellclick(nil) probiert, funktioniert auch nicht.

Kann ich nicht nachvollziehen, denn ich gehe häufig ebenso vor: Nachdem der Anwender Werte in DB-Edits bearbeitet und den Post-Button betätigt hat, wird automatisch der Fokus auf das darüberliegende DBGrid gesetzt. Und das funktioniert stets tadellos. Vielleicht würde es dir helfen, wenn du einmal durch die entsprechenden Methoden stepst, vielleicht wird ja noch was aufgerufen nach dem DBGrid.SetFocus, das den Fokus wieder verändert ... ?

[Luckner]

Danach wird nichts mehr aufgerunfen. Habe jetzt festgestellt, dass wenn ich mit der Maus auf die Buttons klicke, dan wird setfocus richtig ausgeführt. Mit meinem Hotkey F10, wo ich nur die Procedure Button.Click aufrufe, der Fücus auf dem Frame- oder Form1-Fenster landet. Mit den Pfeil-Tasten geht links, oben das Fenstermenue auf. Fenster minimieren, maximieren Schliessen usw.

[Perlsau]

Wo genau setzt du denn deinen Fokus für das DBGrid? Ich würde das in deinem Fall mal in der Button-Ereignisbehandlung versuchen ...

[Luckner]

Aus einem Editfeld im Panel wird folgendes aufgerufen:

Delphi-Quellcode:

procedure TFrameAuftrag.JvEditKundennrsuchenKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if Key = VK_F10 then ButtonPanelSchliessen.Click;
end;

Dann im Button:

Delphi-Quellcode:

procedure TFrameAuftrag.ButtonPanelSchliessenClick(Sender: TObject);
begin
 DBGridAuftrag.SetFocus;
 PanelFilter.Visible := False;
 JvHTButtonSuchenFiltern.Visible := True;
end;

[Perlsau]

Was passiert, wenn du das Setzen des DBGrid-Fokus ans Ende stellst, d.h. zuletzt ausführst? Welche Delphi-Version verwendest du eigentlich?

[stahli]

Wird denn ButtonPanelSchliessenClick auch ausgeführt?

Versuche dann mal folgendes:

Delphi-Quellcode:

procedure TFrameAuftrag.ButtonPanelSchliessenClick(Sender: TObject);
 begin
  DBGridAuftrag.SetFocus;
  // PanelFilter.Visible := False;
  // JvHTButtonSuchenFiltern.Visible := True;
 end;

Es ist denkbar, dass Dir hier ein Zeitverhalten der VCL in die Quere kommt. Es KÖNNTE SEIN, dass der Focus noch nicht wirklich umgesetzt wurde und Dein Edit durch Ausschalten des Panels "verschwindet". Dann würde der Parent den Focus erhalten.

Wenn das das Problem wäre, dann vielleicht einfach den Focus zuletzt zuweisen:

Delphi-Quellcode:

procedure TFrameAuftrag.ButtonPanelSchliessenClick(Sender: TObject);
 begin
  PanelFilter.Visible := False;
  JvHTButtonSuchenFiltern.Visible := True;
  DBGridAuftrag.SetFocus;
 end;

Da die VCL solche Anweisungen verzögert durch Nachrichtenverarbeitungen abarbeitet muss man mit solchen Effekten rechnen.


EDIT: Oups, kein roter Kasten, aber Perlsau ist wohl auf der gleichen Spur...

[himitsu]

JvEditKundennrsuchenKeyDown:
Wenn du Eingaben selber verarbeitest, dann solltest du besser auch die weitere Verarbeitung abschalten. (hier einfach Key:=0; und in ganz besonderen Extremfällen ein Abort)

Und was passiert, wenn den Fokus als Letztes setzt?

[Luckner]

Die Lösung ist: Key:=0; Jetzt funktioniert es.

Danke himitsu und allen Anderen.