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

40 Visitors Online


 
...alle Controls & Menüs einer TApplication in einer TTreeView auflisten ?
Autor: Martin
[ Tip ausdrucken ]  

Tip Bewertung (7):  
     


uses
  
ComCtrls, Menus, Classes, Forms, Controls, Windows, Messages;

function GetControlCaption(Control: TWinControl): ShortString;
  //  Slightly modified version of Twister's Tip
  //
  //  function GetCaptionAtPoint(pt: TPoint): string;
  //
var
  
TextLength: Integer;
  Text: PChar;
begin
  if not 
Boolean(Control.Handle) then Exit;

  Result := Control.Name;  //  if Control doesn't have Caption
  //  Control.Name is returned

  
TextLength := SendMessage(Control.Handle, WM_GETTEXTLENGTH, 0, 0);
  if TextLength  0 then
  begin
    
GetMem(Text, TextLength + 1);
    SendMessage(Control.Handle, WM_GETTEXT, TextLength + 1, Integer(Text));
    Result := Text;
    FreeMem(Text);
  end;
end;

//  function GetCaptionAtPoint(pt: TPoint): ShortString;
//  begin
//    Result:= GetControlCaption(FindVCLWindow(pt));
//  end;


procedure FindAllMenuItems(AppTree: TTreeView; MenuItem: TMenuItem; Parent: TTreeNode);
var
  
loop: Integer;
  Node: TTreeNode;
  mItem: TMenuItem;
  Name: ShortString;
begin
  for 
loop := 0 to MenuItem.Count - 1 do
  begin
    
mItem := MenuItem.Items[loop];
    Name  := mItem.Caption;
    Node  := AppTree.Items.AddChildObject(Parent, Name, mItem);
    if mItem.Count  0 then findAllMenuItems(AppTree, mItem, Node);
  end;
end;

procedure FindAllControls(AppTree: TTreeView; Comp: TComponent; Parent: TTreeNode);
var
  
Child: TComponent;
  loop, start, Index: Integer;
  Name: ShortString;
  Node, Mnode: TTreeNode;
begin
  
start := 0;
  if Comp is TApplication then
  begin
    
// Parent:= AppTree.Items.AddObjectFirst(Parent, 'Application', nil);
    //  if you want to see the root ('Application') uncomment
    
start := 1;
  end;

  for loop := start to Comp.ComponentCount - 1 do
  begin
    
Child := Comp.Components[loop];
    Name  := Child.Name;

    if Child is TControl then
    begin
      if 
Child is TWinControl then
      begin  
//  does Child have Caption property??
        
Name := GetControlCaption(TWinControl(Child));
      end;
      Node := AppTree.Items.AddChildObject(Parent, Name, Child);
      if Child.ComponentCount  0 then FindAllControls(AppTree, Child, Node);
    end;

    if Child is TMenu then
    begin
      
Node := AppTree.Items.AddChildObject(Parent, Name, Child);
      for Index := 0 to TMenu(Child).Items.Count - 1 do
      begin
        
Mnode := AppTree.Items.AddChildObject(Node, TMenu(Child).Items[Index].Caption,
          TMenu(Child).Items[Index]);
        FindAllMenuItems(AppTree, TMenu(Child).Items[Index], Mnode);
      end;
    end;
  end;
end;


 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


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