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

Вниз

взять текст из чужого ListBox-a   Найти похожие ветки 

 
Muchacho   (2005-11-02 08:25) [0]

Здравствуйте.
Нашел хендл чужого ListBox-а,  теперь как взять его Items?


 
begin...end ©   (2005-11-02 08:33) [1]

LB_GETTEXTLEN + LB_GETTEXT


 
Muchacho   (2005-11-02 08:41) [2]

спасибо. а как нажать кнопку? :)


 
Muchacho   (2005-11-02 08:43) [3]

пожалуйста напишите функцию полным  для ListBox и Button


 
begin...end ©   (2005-11-02 08:56) [4]

> Muchacho

var
 hLB: Cardinal;
 Len: Cardinal;
 P: PChar;
begin
 ...
 Len := SendMessage(hLB, LB_GETTEXTLEN, 0, 0);
 if Len > 0 then
 begin
   GetMem(P, Len + 1);
   try
     SendMessage(hLB, LB_GETTEXT, 0, Integer(P));
     ShowMessage(P)
   finally
     FreeMem(P)
   end
 end
end


> а как нажать кнопку?

Не скажу.
:-)))


 
Muchacho   (2005-11-02 09:09) [5]

это берет только первую строку. А взять другие?


 
begin...end ©   (2005-11-02 09:12) [6]

> Muchacho   (02.11.05 09:09) [5]

Третий параметр в обоих вызовах SendMessage -- это индекс строки в listbox"е.


 
Muchacho   (2005-11-02 09:15) [7]

thanx a million :)



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

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

Наверх




Память: 0.47 MB
Время: 0.033 c
14-1134488095
Pazitron_Brain
2005-12-13 18:34
2006.01.08
Полезная программа для урока информатики


2-1135114470
Gena
2005-12-21 00:34
2006.01.08
Прошу помочь очень хочется из Delphi7 запустить мастера печати


2-1134849990
newhite
2005-12-17 23:06
2006.01.08
Авторизация! Вход в систему.


1-1133883289
VID
2005-12-06 18:34
2006.01.08
Item.Caption отображает только 260 символов !


1-1133964987
MetalFan
2005-12-07 17:16
2006.01.08
функция, обратная format