TShortcut

Brug et &

Kig på funktionnen ShortCutToText

og TextToShortCut.

Jens B

Kan godt være spørgsmålet var lidt kortfattet, men
det handler om at når man har valgt en shortCut, f.eks Ctrl+A til et menuitem, vil der i menuen stå caption + shortcut-teksten. feks \"Save Ctrl+S\". Det vil jeg f.eks gerne ændre til \"Save ControlTast + S\", men jeg kan ikke lige se at det er muligt via TMenuitem.ShortCut.

Mit svar vil være, at det sikkert kan ændres, evt. i en OnDraw eller lignende event for dit menu item, men mit råd er: La\' vær\'!  Du går væk fra en etableret Windows standard og det skal du dæleme ha\' gode grunde til.

Peter

Har jeg prøvet, men denne vil kun aceptere legale shortcutkombinationer. Ikke selvdefinerede tekster.

fra Online hjælpen :

TMenuItem.OnDrawItem
-------------------------------------------------
Occurs when an owner-draw menu needs to be drawn.


Så du sætter din menus OwnerDrawed property til true .. Så sætter du et OnDrawEvent på dit (dine) menuItems ... Het kan fx. Se således ud :


procedure TForm1.Save1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
  ACanvas.TextOut(1,1,\'HEST\');
end;


Jens B

Det var sådan set det jeg mente....men stadig væk: La vær....  (skumle nu skal jeg nok gå....)

Ready to run :

procedure TForm1.Save1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
var
  s : String;
  i : Integer;
begin
  S:=ShortCutToText(  (Sender as TMenuItem).ShortCut);
  i:= pos(\'Ctrl\',s);
  if i<> 0 then
  begin
    Insert(\'Hest\',s,i);
    i:= pos(\'Ctrl\',s);
    Delete(s,i,4);
  end;
  ACanvas.TextOut(1,1,\'HEST \' + s);
end;


Men LAD VÆRE !!!!!!!!!

Jens B

erve  >> Er du gået hjem ?

Jens B

Så er der accepteret