zoukankan      html  css  js  c++  java
  • 获取Delphi焦点位置的方法,及所在的控件、以及如何通过控件名称访问控件并赋值

    Delphi 获取焦点位置及所在控件的方法:

    方法一,循环判断:

    Var
      I: Integer;
    Begin
      For I := 0 To ComponentCount - 1 Do    //获取组件数量
      Begin
        If Components[I] Is TWinControl Then   
        Begin
          If (Components[I] As TWinControl).Focused Then
          Begin
            Self.Caption := (Components[I] As TWinControl).Name;
            Break;
          End;
        End;
      End;

     

    方法二,通过活动控件的名称判断:

    Activecontrol.name //获取Delphi焦点所在的控件

     

    方法三:

    某个控件的name.Focused 

      

     

    已知控件名称访问控件并赋值:

    var 
      Panel: TComponent;
    begin
      Panel := FindComponent("pnlToolbar");
      If Panel is TPanel then
      TPanel(Panel).Color := clSilver;
    end;

     

     创建时间:2019.08.05  更新时间:2020.01.08

     来源:https://www.cnblogs.com/guorongtao/p/11301331.html

      

  • 相关阅读:
    0802作业1替换文本文件内容

    看病
    爬山
    作业1
    超市(未完成)
    图片复制
    替换
    文件
    英文字母和中文汉字在不同字符集编码下的字节数
  • 原文地址:https://www.cnblogs.com/guorongtao/p/11301331.html
Copyright © 2011-2022 走看看