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

Вниз

Помогите считать текст из Static чужого окна   Найти похожие ветки 

 
Звоновский   (2008-01-29 14:06) [0]

Окно является сообщением. функция GetWindowText  ничего не возвращает, а
 SendMessage(h,WM_GETTEXTLENGTH,0,Len);
 SetLength(BuffStr,Len);
 SendMessage(h,WM_GETTEXT,Len+1,Integer(@BuffStr[1]));


Возвращает только имя класса контрола.
Может подскажете какие еще другие способы есть считать текст из Static?


 
Compiler ©   (2008-01-31 01:54) [1]

> GetWindowText  ничего не возвращает

У меня работает
function GetEditText(hwin:HWND):Pchar ;
var
 l:integer; p:pchar;
begin
L:=SendMessage(hwin,WM_GETTEXTLENGTH,0,0)+1;
GetMem( p, l );
GetWindowText(hwin, p, l );
result:=p;
FreeMem( p, l );
end;


 
ketmar ©   (2008-01-31 02:08) [2]

а с чего вообще автор решил, что у static есть hwnd?


 
Семеныч   (2008-01-31 03:16) [3]

Есть. Это окно.


 
ketmar ©   (2008-01-31 03:26) [4]

>[3] Семеныч (31.01.08 03:16)
я всегда считал, что TLabel — это окно. а TStaticText — нет.


 
ага   (2008-01-31 05:10) [5]

>>>я всегда считал, что TLabel — это окно. а TStaticText — нет.

Ага. Тока наоборот.


 
ketmar ©   (2008-01-31 05:51) [6]

>[5] ага (31.01.08 05:10)
точно уверен? я вот в обратном уверен. однако же доказать не могу в силу неналичия установленой Delphi. пусть утречком выскажется кто-то с исходниками генофонда под рукой.


 
Palladin ©   (2008-01-31 07:08) [7]


> [6] ketmar ©   (31.01.08 05:51)

Семеныч и ага правду говорят :)


 
ketmar ©   (2008-01-31 08:52) [8]

>[7] Palladin ©(31.01.08 07:08)
во блин. тогда каюсь, был неправ. йопт, щаз пойду в локалке Delphi искать. ну не мог же я так крупно лажануться? это что, товарищи, вот так начинается маразм?


 
Anatoly Podgoretsky ©   (2008-01-31 09:10) [9]

> ketmar  (31.01.2008 05:51:06)  [6]

Верить людям надо.


 
Anatoly Podgoretsky ©   (2008-01-31 09:10) [10]

> ketmar  (31.01.2008 08:52:08)  [8]

Надо поработать любимым инструментом и все пройдет.


 
ketmar ©   (2008-01-31 09:25) [11]

>[9] Anatoly Podgoretsky ©(31.01.08 09:10)
«доверяй, но проверяй!» (ц)

>[10] Anatoly Podgoretsky ©(31.01.08 09:10)
ну не пишу я на Delphi уж больше года, забыл… не знал, не знал, как оказывается, и опа! — забыл.


 
Anatoly Podgoretsky ©   (2008-01-31 09:47) [12]

> ketmar  (31.01.2008 09:25:11)  [11]

Ну тогда помогу.

TButton - окно
TSpeedButton - картинка
TStaticText - окно
TLabel - картинка


 
ketmar ©   (2008-01-31 09:52) [13]

>[12] Anatoly Podgoretsky ©(31.01.08 09:47)
блин, ну всегда был уверен, что TLabel — это окно с классом STATIC. потому у неё и бордюрчиков a-la TStaticText нет. а вот как раз TStaticText — это наследник графконтрола, и оно рисуется без окна, оттуда и красоты. «шьёрт побьери!» (ц)


 
ketmar ©   (2008-01-31 09:53) [14]

я понимаю, что наверняка народ уже в генофонде посмотрел, я просто удивляюсь сам себе…


 
Virgo_Style ©   (2008-01-31 10:30) [15]

imho название у StaticText сбивающее с толку. Раз Static, значит неизменный, раз неизменный - то подпись какая-нибудь типа "жать здесь", а если так, то пусть будет картинкой.
А в действительности наоборот...


 
Palladin ©   (2008-01-31 10:32) [16]


> [14] ketmar ©   (31.01.08 09:53)

каюсь, после [8] пошел уточнить... :) смутил ты меня...


 
ketmar ©   (2008-01-31 11:21) [17]

>смутил ты меня…
знал бы ты, как я сам смущён… просто до состояния офигения. позорная ошибка, учитывая стаж.


 
DrPass ©   (2008-01-31 11:27) [18]


> Anatoly Podgoretsky ©   (31.01.08 09:10) [10]

> Надо поработать любимым инструментом и все пройдет.

Стаканом, что ли?



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

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

Наверх




Память: 0.48 MB
Время: 0.039 c
4-1183823617
AlexanderMS
2007-07-07 19:53
2008.02.24
Изменение положения ползунка в TrackBar.


3-1191933250
Still Swamp
2007-10-09 16:34
2008.02.24
Проблема с блоб полем.


2-1200084473
PVM
2008-01-11 23:47
2008.02.24
Как получить имя компа и имя юзера?


2-1201436104
kast
2008-01-27 15:15
2008.02.24
Поиск нескольких позиций в бд


15-1200675097
Lip
2008-01-18 19:51
2008.02.24
Переменная в процедуре .. живучая





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский