TShortCut belegen

[xZise]

Wie kann ich ein TShortCut belegen?

Wenn ich folgendes mache:

Delphi-Quellcode:

type
  TShortCuts = record
    case ShortCutNum : Byte of
      3 : (
        DealSC : TShortCut;
        NoDealSC : TShortCut;
        SonderTaste : array [1..3] of Boolean;
      );
  end;

{...}

procedure TfMain.bSettingsClick(Sender: TObject);
var ShortCut : TShortCuts;
begin
  ShortCut.ShortCutNum := 3;
  ShortCut.DealSC := Alt + D; // hier meckert er rum: [Error] Undeclared identifier: 'Alt'
  ShortCut.NoDealSC := 'Alt + N'; // hier meckert er um: [Error] Incompatible types: 'TShortCut' and 'String'
  ShortCut.SonderTaste[1] := true;
  ShortCut.SonderTaste[2] := false;
  ShortCut.SonderTaste[3] := true;
  {...}
end;

Wie löse ich nun das Problem?

[Steve]

Hi,

in der Unit Menus gibts ne Funktion ShortCut, die dir aus einem Tastencode und evtl. Shift/Alt/Strg-Taste nen TShortCut erzeugt:

Delphi-Quellcode:

function ShortCut(Key: Word; Shift: TShiftState): TShortCut;

Gruß
Stephan :dance:

[xZise]

Und wie wandle ich ein Char ('D') in ein Word um?

[edit]Ha ^^ Dumm ist xP
*TShortcut markier* und *F1drück* =

Zitat:

Description

TShortCut types are the menu shortcuts that appear on menus and give the user an alternate way to select menu commands using the keyboard. The ShortCut property is of type TShortCut, and the ShortCutToText and ShortCutToKey routines use parameters of type TShortCut. TShortCut is also the return type of the TextToShortCut routine.

^^ Die funktionier auch wunderbar :D

[Steve]

Hi,

Ord hilft Dir weiter. Weitere Infos in der OH unter Virtuelle Tastencodes
TextToShortcut hilft Dir dann nicht mehr, wenn Du z.B. eine F-Taste, Home, oder End usw. verwenden willst ;)

Gruß
Stephan :dance:

[Hawkeye219]

Zitat:

Zitat von Steve

TextToShortcut hilft Dir dann nicht mehr, wenn Du z.B. eine F-Taste, Home, oder End usw. verwenden willst

Das glauber ich nicht. Der folgende Code funktioniert unter Delphi 6:

Delphi-Quellcode:

key := TextToShortCut('Ende');
s := ShortCutToText(key);

Gruß Hawkeye

[Steve]

Klappt das auch, wenns auf einem ...z.B. französischem System läuft?

[xZise]

Also eigentlcih wollte ich nur
<strg>+
<alt>+
<shift>+

:D

[Steve]

Joa dann passt's ja sowieso :D :thumb:

Gruß
Stephan :dance: