[Savant]

Ну нет ничего проще, чем заглянуть в папку .\vcl\source\ и хорошенько там покопаться. Итогом может стать например это:

Код:

function GetLine(hwnd: Cardinal; Index: Integer): String;
// Получает строку под номером Index из контрола с Handle = hwnd
var
  Text: array[0..4095] of Char;
begin
  Word((@Text)^) := SizeOf(Text);
  SetString(Result, Text, SendMessage(hwnd, EM_GETLINE, Index, Longint(@Text)));
end;

procedure ReplaceLine(hwnd: Cardinal; Index: Integer; const S: String);
// Заменяет строку под номером Index в контроле hwnd на строку S
var
  SelStart: Integer;
begin
  SelStart := SendMessage(hwnd, EM_LINEINDEX, Index, 0);
  if SelStart >= 0 then begin
    SendMessage(hwnd, EM_SETSEL, SelStart, SelStart + SendMessage(hwnd, EM_LINELENGTH, SelStart, 0));
    SendMessage(hwnd, EM_REPLACESEL, 0, Longint(PChar(S)));
  end;
end;

procedure AddToLine(hwnd: Cardinal; Index: Integer; what: String);
// Добавляет к строке под номером Index строку what
begin
  ReplaceLine(hwnd, Index, GetLine(hwnd, Index) + what);
end;

>>Т.к. если послать сообщение классу STATIC...
Замечу, что TMemo относится к "классу" (точнее, типу) EDIT

[DillerInc]

Savant
Я немного недопонял насчёт параметра Index, который мы передаём процедуре AddToLine, т.е. откуда мы его возьмём...или...

[Savant]

Мде, заклинило меня на этом Append , с StrCat чего-то попутал (подумал, что надо добавить одну строку в конец другой, а не новую строку в Memo ). Второе намного проще:

Код:

procedure AppendLine(hwnd: Cardinal; const S: String);
// соответствует методу Append
begin
  SendMessage(hwnd, EM_SETSEL, MaxInt, MaxInt);
  SendMessage(hwnd, EM_REPLACESEL, 0, Longint(PChar(S + #13#10)));
end;

function AddLine(hwnd: Cardinal; const S: String): Integer;
// соответствует методу Add
begin
  AppendLine(hwnd, S);
  Result := SendMessage(hwnd, EM_LINEFROMCHAR, -1, 0) - 1;
end;

[DillerInc]

Savant
Спасибо,вот теперь всё получилось .

[DillerInc]

Вот возникла у меня тупиковая ситуация:

Код:

var 
 Buffer : array of Byte; // Есть массив байтов
 Pos : Integer;
 Bytes : DWORD; есть 32-битная переменная
begin
 Bytes := Buffer[Pos+01]; Тут хочу переслать четыре байта
end;

После компиляции команда пересылки байтов выглядит как:
mov al, [edx+01] ; в EDX располагается массив
...т.е. пересылается только один байт вместо четырёх.Приходится уже вручную править это место на:
mov eax, [edx+01]
Подскажите пожалуйста,где я туплю и как заставить компилятор пересылать в данном случае двойное слово,а не один байт.

[Savant]

вар. 1 (следить за границами!!!)
способ универсальный, когда откуда-то надо достать нужное кол-во байтов с любой позиции

Код:

var
  Buffer: array of Byte; // Есть массив байтов
  Pos: Integer;
  Bytes: Cardinal;
  BytesPtr: ^Cardinal;
begin
  BytesPtr := @Buffer[Pos+01];
  Bytes := BytesPtr^;
...

вар. 2
применительно к динамическим массивам

Код:

var
  Buffer: array of Byte; // Есть массив байтов
  Pos: Integer;
  Bytes: Cardinal;
begin
  Bytes := Cardinal(Copy(Buffer, Pos+01, 4));
...

[DillerInc]

Savant
Спасибо,что откликнулся и помог .
Воспользовался первым вариантом - получилось.

P.S. Хотел бы уточнить - существуют ли всё-таки какие-то различия между типами DWORD и Cardinal ??

[Savant]

DillerInc

Хотел бы уточнить - существуют ли всё-таки какие-то различия между типами DWORD и Cardinal ??

Абсолютно одно и то же.
32-битное беззнаковое целое, 4 байта в памяти.

[serg700]

Буду очень признателен тому, кто поможет решить такую задачу : при нахождении на форме кусора без движения 3 секунды - он должен исчезать , если пошевелить мышкой - появлятся ( как это сделано в видеоплеерах , например Light Alloy при просмотре видео на весь экран ) .

[DillerInc]

serg700
Давай пробовать .

Значит есть такая WinAPI-функция TrackMouseEvent,которая способна следить за состоянием курсора и отправлять соответствующие сообщения.Эти сообщения будут приниматься и обрабатываться с помощью функции WindowProc приложения.
Функция TrackMouseEvent принимает в качестве параметра указатель на структуру TRACKMOUSEEVENT,заполняя которую мы указываем особенности слежения за курсором.

Итак,нам понадобится создать функцию,обрабатывающую различные сообщения, - WindowProc:

Код:

var
 Hovering : Boolean; // переменная типа Boolean,которая сигнализирует о зависании курсора
 TME : TTrackMouseEvent;
function WindowProc(hWnd : HWND; uMsg : UINT; wParam : WPARAM;
                    lParam : LPARAM) : LRESULT; stdcall;
begin
 Result := DefWindowProc(hWnd, uMsg, wParam, lParam); 
 
if uMsg = WM_MOUSEMOVE then
begin
 { Заполняем структуру TRACKMOUSEEVENT }

 TME.cbSize := SizeOf(TME);
 TME.dwFlags := TME_HOVER; // Вариант с зависанием курсора
 TME.hwndTrack := hWnd; // Описатель,который используется первым параметром в WindowProc
 TME.dwHoverTime := 3000; // три секунды зависания
 TrackMouseEvent(TME); // Вызываем саму функцию

if Hovering then // Если курсор зависал и был спрятан,
begin
 ShowCursor(True);  // то показываем его
 Hovering := False;
 end;
end; // uMsg = WM_MOUSEMOVE

if uMsg = WM_MOUSEHOVER then // Если поступает сообщение
begin                                                        // о зависании курсора,то
 Hovering := True;                                              // прячем его
 ShowCursor(False);
end; // uMsg = WM_MOUSEHOVER

end; // WindowProc

Функция TrackMouseEvent словно бы одноразовая,т.е. сгенерировав одно сообщение,она перестаёт функционировать,поэтому её необходимо каждый раз запускать заново.Именно поэтому я поставил её инициацию в обработчик сообщения передвижения курсора (WM_MOUSEMOVE) .

P.S. Я точно не уверен возможно ли таким образом реализовать функцию WindowProc на чистом Delphi,т.е. с применением всяких там VCL и т.п.
Я это делал на примере минимального Delphi-приложения,где используется только WinAPI.
P.P.S. Вероятно описанная WindowProc не является полнофункциональной,т.к. я старался объяснить только принцип актуального вопроса.