was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1541)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

35 Visitors Online


 
...Shortcuts bei einem TTabSheet eines TPageControls verwenden?
Autor: P. Below
Homepage: http://www.teamb.com
[ Tip ausdrucken ]  

Tip Bewertung (3):  
     


{
  With menus (and labels), If you use the '&' character in the caption of a menu,
  you can access that menu item with the short cut key.
  With this code you can do the same thing with TTabSheet objects
  that are used with TPageControl objects.

  Zugriffstasten ermöglichen die Ausführung eines Menübefehls mit Hilfe der Tastatur.
  Der Benutzer braucht nur die Taste Alt und den mit dem Zeichen & kombinierten
  Buchstaben zu drücken.

  Dieser code erlaubt dieselebe Funktionalität für ein
  TTabSheet eines TPageControls.
}

// in form declaration
private
  procedure 
CMDialogChar(var Msg: TWMCHAR); message CM_DIALOGCHAR;
end;
  
type
  
TPageControlCracker = class(TPageControl);

{...}

implementation

  procedure 
TForm1.CMDialogChar(var Msg: TWMCHAR);
  var
    
i: Integer;
  begin
    if 
(Msg.keydata and $20000000) <> 0 then
    begin
      
{ Alt key is down }
      
with TPageControlCracker(PageControl1) do
        for 
i := 0 to PageCount - 1 do
        begin
          if 
IsAccel(Msg.charcode, Pages[i].Caption) then
          begin
            if 
CanChange then
            begin
              
ActivePage := Pages[i];
              Msg.Result := 1;
              Change;
              Exit;
            end{ If }
          
end;  { If }
        
end{For}
    
end{If}
    
inherited;
  end;


 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners