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

Вниз

Увидеть все компоненты на окне   Найти похожие ветки 

 
ThunderRT6FormDC   (2004-12-26 16:52) [0]

То, что у меня получилось не работает должным образом.
Порой не пишет в список невидимые компоненты..
Или вообще, посто не все находит..

var
 S1:TStringList;

function EnumProc(H: HWND; Info: Pointer): BOOL; stdcall;
var aName: array [0..255] of Char;
begin
Result := True;
if Boolean(GetClassName(H, aName, 256)) then
S1.Add(aName);
end;

procedure TForm1.Enum(h:integer);
var i:integer;
begin
S1:=TStringList.Create;
EnumChildWindows(h, @EnumProc, Longint(self));
if (Form1.ListBox1.Items.Count=0)or(Form1.ListBox1.Items.Count<>S1.Count) then
begin
ListBox1.Items.Assign(S1);
FreeAndNil(S1);
Exit;
end;

if (Form1.ListBox1.Items.Count=S1.Count) then
for i:=0 to ListBox1.Items.Count-1 do
if ListBox1.Items.Strings[i]<>S1.Strings[i] then
 begin
ListBox1.Items.Assign(S1);
break;
 end;
FreeAndNil(S1);
end;


Обращение типа:

Enum(WindowFromPoint(Mouse.CursorPos));


 
Leonid Troyanovsky ©   (2004-12-26 18:51) [1]


> ThunderRT6FormDC   (26.12.04 16:52)  
> То, что у меня получилось не работает должным образом.
> Порой не пишет в список невидимые компоненты..
> Или вообще, посто не все находит..


http://groups.google.com/groups?selm=3BA6F3C3.CE745B6F%40eco-pro.ru

--
Regards, LVT.


 
ThunderRT6FormDC   (2004-12-27 00:45) [2]

Thanks to LVT.



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

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

Наверх




Память: 0.47 MB
Время: 0.063 c
14-1106549603
Inco
2005-01-24 09:53
2005.02.13
Взаимодействие сервера на Java и клиента на Delphi


6-1101142083
integer
2004-11-22 19:48
2005.02.13
как можно удалить ненужниє ссилки из WebBrowser


11-1089621216
Vladimyr
2004-07-12 12:33
2005.02.13
Menu.DefaultItem - невозможно снять


3-1105599161
Jann
2005-01-13 09:52
2005.02.13
из dbf в txt


1-1107256100
Dmitry_04
2005-02-01 14:08
2005.02.13
Как сделать форму нестандартного вида?