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

Реклама
Новое
Реклама