freepascal.ru

Код: Выделить всё

somecomp = 'caption1'
и т.д.

Код: Выделить всё

  TControl = class(TLCLComponent)
....
  public
    // standard properties, which should be supported by all descendants
  ....
    property Caption: TCaption read GetText write SetText stored IsCaptionStored;
  ....
    property Text: TCaption read GetText write SetText;

Код: Выделить всё

if somecomp is TControl then
  somecomp.Caption:='bla-bla-bla'

Код: Выделить всё

var componentname, componentcaption,s : string; 
     f : textfile;
begin
 assignfile(f, ......
 reset(f);
 readln(s);   //где s = somecomp = 'caption1'
 componentname := trim(copy(s,1,pos('=',s) - 1)); // получаем 'somecomp'
 delete(s,1,pos('=',s) - 1);
 componentcaption := s; // получаем 'caption1'
 ....

Код: Выделить всё

findcomponent(componentname).caption := componentcaption;

Код: Выделить всё

procedure LocalizeControl(Frm: TForm);
//Локализует некотрые существующие контролы на форме
var
  i: integer;
begin
  for i := 0 to Frm.ControlCount - 1 do
  begin
    //Локализуем Caption'ы
    //TLabel
    if Frm.Controls[i] is TLabel then
      (Frm.Controls[i] as TLabel).Caption := Localize((Frm.Controls[i] as TLabel).Caption);
    //TButton
    if Frm.Controls[i] is TButton then
      (Frm.Controls[i] as TButton).Caption := Localize((Frm.Controls[i] as TButton).Caption);
    //Локализуем хинты
    if Frm.Controls[i] is TControl then
      (Frm.Controls[i] as TControl).Hint := Localize((Frm.Controls[i] as TControl).Hint);
      и т.д.
  end;
end;

procedure LocalizeMenu(Menu: TMenu);    //Локализует меню
var
  i: integer;
begin
  for i := 0 to Menu.Items.Count - 1 do
  begin
    Menu.Items[i].Caption := Localize(Menu.Items[i].Caption);
  end;
end;

Код: Выделить всё

function Localize(const Caption: string): string;  //Локализует строку
begin
  if not assigned(LngList) then
  begin
    Result := Caption;
    Exit;
  end;
  Result := LngList.Values[Caption];
  if Result = '' then
    Result := Caption;
end;

Код: Выделить всё

uses TypInfo;

{$R *.dfm}

function HasProperty(Obj: TObject; PropName: String; PropKinds: TTypeKinds = []): boolean;
begin
  Result := (GetPropInfo(Obj,PropName,PropKinds) <> nil);
end;

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
  for i:=0 to ComponentCount-1 do
   if IsDBControl(Components[i]) and
    HasProperty(Components[i],'OnEnter') then
      SetMethodProp(Components[i],'OnEnter',GetMethodProp(DBCtrlGrid1,'onEnter'));
end;

procedure TForm1.DBCtrlGrid1Enter(Sender: TObject);
begin
  if (Sender is TDBGrid) then
  begin
    DBNavigator1.DataSource := TDataSource(GetObjectProp(Sender,'DataSource'));
    ActiveField := (Sender as TDBGrid).SelectedField;
    lblFindField.Caption := '"'+ActiveField.DisplayName+'" (' + ActiveField.DataSet.GetNamePath + '::' + ActiveField.FieldName + ')';
  end
  else
  if HasProperty(Sender,'DataSource') then
  begin
    DBNavigator1.DataSource := TDataSource(GetObjectProp(Sender,'DataSource'));
    if HasProperty(Sender,'DataField') then
      if GetStrProp(Sender,'DataField')<>'' then
        if DBNavigator1.DataSource <> nil then
          if DBNavigator1.DataSource.DataSet <> nil then
            if DBNavigator1.DataSource.DataSet.Active then
            begin
              ActiveField := DBNavigator1.DataSource.DataSet.FieldByName(GetStrProp(Sender,'DataField'));
              lblFindField.Caption := '"'+ActiveField.DisplayName+'" (' + ActiveField.DataSet.GetNamePath + '::' + ActiveField.FieldName + ')';
            end;
  end;
end;

function TForm1.IsDBControl(obj: TObject): boolean;
begin
  result := (obj is TControl)
         and HasProperty(obj,'DataSource');
end;

Код: Выделить всё

if findcomponent(compname) is tlabel then (findcomponent(compname) as tlabel).caption := componentcaption
else if findcomponent(compname) is tbutton then (findcomponent(compname) as tbutton).caption := componentcaption

Код: Выделить всё

uses
  ...
  typinfo;

....
procedure tmainfo.on_change(const sender: TObject);
var prop : propinfopoarty;
     po1 : ppropinfo;
       i : integer;
newcaption : string;
begin
  prop := getpropinfoar(tobject(findcomponent('tbutton1')));   //вместо 'tbutton1' ставим имя существующего объекта
  newcaption := tstringedit1.value;       // новый caption
  for i := 0 to high(prop) do
    begin
     po1 := prop[i];
     with po1^ do 
     begin
      case proptype^.kind of
       {$ifdef FPC}
         tkustring: setunicodestrprop(findcomponent('tbutton1'),po1,newcaption);  //собственно присвоение нового caption
       {$endif}
      end; //case
     end;//with
    end;
end;

Код: Выделить всё

uses
  ...
  typinfo;

function HasProperty(Obj: TObject; PropName: String; PropKinds: TTypeKinds = []): boolean;
begin
  Result := (GetPropInfo(Obj,PropName,PropKinds) <> nil);
end;

procedure tmainfo.on_change(const sender: TObject);
begin
   if HasProperty(tobject(findcomponent('tbutton1')),'caption') then
      SetStrProp(tobject(findcomponent('tbutton1')),'caption','1111');
end;

Код: Выделить всё

procedure tmainfo.on_change3(const sender: TObject);
var ob : Tobject;
begin
  newcaption := 'LLLL';
   if HasProperty(tobject(findcomponent('tbutton1')),'frame') then
   begin
     ob := GetObjectProp(tobject(findcomponent('tbutton1')),'frame');
     if HasProperty(ob,'caption') then SetStrProp(ob,'caption',newcaption);
   end;
end;