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

Вниз

wm_GetText ???   Найти похожие ветки 

 
maxistent ©   (2004-10-09 18:13) [0]

Люди, привет! Кто знает, как использовать wm_GetText? Там нужны какие-то указатели... SendMessage(MyHandle, wm_GetText, ?, ?) :(


 
XProger ©   (2004-10-09 21:36) [1]


var
textbuffer : PChar;
....
GetMem(textbuffer, TEXTBUFFERSIZE);
SendMessage(MemoHandle, WM_GETTEXT, 0, Longint(textbuffer));


 
maxistent ©   (2004-10-10 16:42) [2]

после этого:


procedure TForm1.Button1Click(Sender: TObject);
var
textbuffer : PChar;
begin
GetMem(textbuffer, 5);
SendMessage(MyHandle, WM_GETTEXT, 0, Longint(textbuffer));
Form1.Caption:=StrPas(TextBuffer);
end;


у Формы в заголовке закорючки какие-то... Как быть?


 
GuAV ©   (2004-10-10 16:45) [3]

WM_GETTEXT  
wParam = (WPARAM) cchTextMax;   // number of characters to copy
lParam = (LPARAM) lpszText;     // address of buffer for text


 
maxistent ©   (2004-10-10 19:09) [4]

А-а-а... понятно. Спасибо.


 
DVM ©   (2004-10-10 22:50) [5]

function GetTextFromWindow(hWnd: HWND): string;
var
 TextLength: Integer;
 Text: PChar;
begin
 TextLength := SendMessage(hWnd, WM_GETTEXTLENGTH, 0, 0);
 if TextLength = 0 then Result := ""
 else
 begin
   GetMem(Text, TextLength + 1);
   SendMessage(hWnd, WM_GETTEXT, TextLength + 1, longint(Text));
   Result := Text;
   FreeMem(Text);
 end;
end; // End of function GetTextFromWindow



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

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

Наверх




Память: 0.47 MB
Время: 0.027 c
1-1099454502
Тимур
2004-11-03 07:01
2004.11.21
Runtime error 216


14-1099499180
Alex Friend
2004-11-03 19:26
2004.11.21
Вектор чисел и квадратный трехчлен.


14-1099277025
Думкин
2004-11-01 05:43
2004.11.21
С днем рождения! 1 ноября


6-1094724592
bsa
2004-09-09 14:09
2004.11.21
Как закачать страничку, только текст (без картинок!)


14-1099563938
k@rt_
2004-11-04 13:25
2004.11.21
Отказано в доступе.