DELPHI POSTMESSAGE ПЕРЕДАТЬ RECORD
Delphi PostMessage позволяет передать сообщение в очередь сообщений на обработку другим окнам, оно работает асинхронно и не блокирует текущий поток. Кроме того, Delphi PostMessage может передавать не только числовой тип, но и тип данных Record.Пример кода на Delphi, демонстрирующий передачу Record с помощью PostMessage:
type TMyRecord = record X, Y: Integer; end;...procedure TForm1.Button1Click(Sender: TObject);var MyRecord: TMyRecord;begin MyRecord.X := 100; MyRecord.Y := 200; PostMessage(Handle, WM_USER, WPARAM(@MyRecord), 0);end;...procedure TForm1.WMUser(var Message: TMessage);var MyRecord: TMyRecord;begin MyRecord := TMyRecord(Pointer(Message.WParam)^); // Функции обработки MyRecordend;
Здесь мы объявляем тип записи (Record) TMyRecord, который содержит два целочисленных поля X и Y. Затем в процедуре TForm1.Button1Click мы создаем переменную MyRecord типа TMyRecord, заполняем её значениями и передаем её в PostMessage, указывая wParam на указатель на MyRecord. В процедуре TForm1.WMUser мы получаем указатель на MyRecord, выполняем необходимые действия в функциях обработки MyRecord.
Record Helper For TDateTime - Delphi #181
DELPHI c/ WHATSAPP (Envio Automático)
Deleting a Record in Multi-tabled DB via Delphi
Editing Databases in Delphi - Deleting a record
SQL : Use Record As Function Argument in RETURNING Statement
Using iOS AudioRecPlay in Delphi to Record and Play Back Sounds