Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

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

 
Layner ©   (2005-10-21 09:54) [0]

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


 
Digitman ©   (2005-10-21 10:07) [1]

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


 
Layner ©   (2005-10-21 10:31) [2]

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


 
begin...end ©   (2005-10-21 10:35) [3]

TypInfo.IsPublishedProp ?


 
Layner ©   (2005-10-21 11:13) [4]

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


 
Digitman ©   (2005-10-21 11:19) [5]

Controls property (TWinControl)

TWinControl See also  Delphi example C++ example

Delphi syntax:

property Controls[Index: Integer]: TControl;


 
begin...end ©   (2005-10-21 11:19) [6]

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

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


 
Layner ©   (2005-10-21 11:27) [7]

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


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

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

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 и т.д.



Страницы: 1 вся ветка

Текущий архив: 2005.11.13;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.05 c
2-1130348210
SamProf
2005-10-26 21:36
2005.11.13
Как получить адрес из суммы двух адресов?


14-1129974768
pazitron_brain
2005-10-22 13:52
2005.11.13
Снова про окна.


11-1110981835
Vladimyr
2005-03-16 17:03
2005.11.13
QueryEndSession - как чуток подождать?..


1-1129882552
kyn66
2005-10-21 12:15
2005.11.13
Как обратиться к выделенной строке ListView?


4-1126085594
jeka_t
2005-09-07 13:33
2005.11.13
Как открывать документы при помощи CreateProcess