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;