home K2»Infoservice»Diskusní fórum»Potlačení nápovědy

Topic created by Tommek Petr
Last contribution added by Kovařčík Mikuláš Tuesday, February 23, 2021 1:03:12 PM. Topic contains 1 Reply.
Module: Process:
Tuesday, February 23, 2021 9:32:55 AM
  • Tommek Petr
  • Registered2/14/2005
  • Naposledy přihlášen 2/23/2021
Dobrý den,

jak ve skriptu potlačím u formuláře TK2DDfm vyvolání nápovědy při stisknutí klávesy F1 ?
Potřebuji klávesu F1 použít pro něco jiného.

Děkuji za nasměrování.

Tommek

Tuesday, February 23, 2021 1:03:12 PM
Dobrý den, jde to udělat následující konstrukcí. Každý formulář má obsluhu kláves, kterou je potřeba přepsat:

function TDfmForm.UserKeyDown(var Key: Word; Shift: TShiftState; PouzeStr: Boolean): String;
begin
if not PouzeStr then begin
if (Key = VK_F1) and (Shift = []) then begin
HlasOK('Moje obsluha F1');
Key := 0;
Exit;
end;
...


Za tým K2
Mikuláš Kovařčík
Příspěvek byl změněn: Kovařčík Mikuláš, dne: 23.2.2021 13:03:39.