Форум: "Основная";
Текущий архив: 2005.11.13;
Скачать: [xml.tar.bz2];
ВнизКак в цикле найти все виз. компаненты на форме Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.076 c