Nyctos Kasignete, сенк, я там сматрел))
просто хочеццо каких-то более конкретных примеров использования...
вот щас ещё посидел..несколько продвинулся..
нужно написать процедуру для добавления новой строки в RichEdit..
Я пробовал делать так:
Код:
procedure reAddLine(Hnd: HWND; text: String);
var
ltext: PAnsiChar;
begin
GetWindowText(Hnd, ltext, 1024);
SetWindowText(Hnd, PAnsiChar(ltext+text+#10));
end;
но почему та при обращении получаеццо строка вида "Название_шрифтаТекст"
исправляю на:
Код:
procedure reAddLine(Hnd: HWND; text: String);
var
ltext: PAnsiChar;
begin
GetWindowText(REWnd, ltext, 1024);
SetWindowText(Hnd, PAnsiChar(ltext+text+#10));
end;
- и всё работает..
но тут теряется универсальность процедуры в использовании..
в чём причина неработоспособности первого варианта?
