| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как в цикле найти все виз. компаненты на форме

Layner ©   (2005-10-21 09:54:00) 

у которых есть св-во Font.Charset?

---

Prohodil Mimo   (2005-10-23 00:16:00) [1]

определить имеется ли свойство фонт можно и так

Uses TypInfo;

procedure TForm1.Button2Click(Sender: TObject);
Var
  Counter:Integer;
  P:PPropInfo;
Begin
For Counter:=0 to Form1.ComponentCount-1 do
Begin
  P:=GetPropInfo((Form1.Components[Counter]).ClassInfo,'Font');
  If P<>Nil then
     ShowMessage('Nashol');
End;
End;


но надо не забыть и о TitleFont, TabFont и т.д.

---

Layner   (2005-10-21 11:27:00) [2]

Большое спасибо, все понятно!

---

Digitman   (2005-10-21 11:19:00) [3]

Controls property (TWinControl)

TWinControl See also  Delphi exampleC++ example

Delphi syntax:

property Controls[Index: Integer]: TControl;

---

begin...end   (2005-10-21 11:19:00) [4]

> Layner ©   (21.10.05 11:13) [4]
> как найти все элементы на форме?

Form.Components -- список компонентов, для которых форма является owner'ом.
Form.Controls -- список контролов, для которых форма является parent'ом.

---

Layner   (2005-10-21 11:13:00) [5]

begin...end ©   (21.10.05 10:35)
Спасибо, а как найти все элементы на форме?
procedure TForm1.Button5Click(Sender: TObject);
begin
   if IsPublishedProp(DBGrid1, 'Font') then
   Showmessage('Есть такое свойство!');
end;

---

begin...end   (2005-10-21 10:35:00) [6]

TypInfo.IsPublishedProp ?

---

Layner   (2005-10-21 10:31:00) [7]

Digitman ©   (21.10.05 10:07)
Да, есть задача, переделать у всех этих элементов CHARSET, хотелось бы вот "прошерстить" все элементы формы, и переделать. ParentFont, и смена шрифта на форме (с помощью диалога FontDialog), эффекта не дает, т.е. национальные символы все равно не вводятся, хотя шрифт меняется, а если "вбить" железно DBGrid1.Font.Charset:=BALTIC_CHARSET;, то нац. символы без проблем вводятся. Поэтому хочется в случае смены CHARSET, пробежаться по всем элементам формы, и сменить CHARSET.

---

Digitman   (2005-10-21 10:07:00) [8]

Font именно как published-свойство ?

---

Наверх