Главная страница
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.022 c
1-1099844767
InfMag
2004-11-07 19:26
2004.11.21
Переход на следующую строку


9-1088497561
Bizon's
2004-06-29 12:26
2004.11.21
Фоновый рисунок


4-1097518429
ser_ega
2004-10-11 22:13
2004.11.21
Приложение!


14-1099166665
Vaitek
2004-10-31 00:04
2004.11.21
Управление трафиком


14-1099867687
Andy BitOff
2004-11-08 01:48
2004.11.21
Максимальная скорость...