Delphi World - Определить каким свойством определяется заголовок у компонента, и изменить его
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Определить каким свойством определяется заголовок у компонента, и изменить его



unit TitleF;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    CheckBox1: TCheckBox;
    Edit1: TEdit;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    RadioButton2: TRadioButton;
    RadioButton1: TRadioButton;
    procedure AnyClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  TypInfo;

{$R *.DFM}

procedure TForm1.AnyClick(Sender: TObject);
var
  PropInfo: PPropInfo;
  Capt: string;
//  pcCapt: array [0..100] of Char;
begin
  // we'd like to write:
  // Sender.Caption := Sender.Caption + '*';

{  // Solution 1:

  // get the current value
  (Sender as TControl).GetTextBuf (
    pcCapt, sizeof (pcCapt));
  // add a *
  StrCat (pcCapt, '*');
  // set the new value
  (Sender as TControl).SetTextBuf (pcCapt);}

  // Solution 2:

  // get property RTTI
  PropInfo := GetPropInfo (Sender.ClassInfo, 'Caption');
  // try again
  if PropInfo = nil then
    PropInfo := GetPropInfo (Sender.ClassInfo, 'Text');

  // if found, apply the new value
  if PropInfo <> nil then
  begin
    Capt := GetStrProp (Sender, PropInfo);
    Capt := Capt + '*';
    SetStrProp (Sender, PropInfo, Capt);
  end;
end;

end.

Загрузить весь проект

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования