Форум: "Основная";
Текущий архив: 2006.07.02;
Скачать: [xml.tar.bz2];
Вниз
Передача сообщения Найти похожие ветки
← →
webpauk (2006-05-24 12:32) [0]
const
WM_MYUSERINFO = WM_USER + 126;
type
TmyRec = record
var1: Integer;
var2: String;
var3: Boolean
end;
var
fMyRec: TmyRec ;
procedure DoSomething;
begin
SendMessage(fHWND, WM_MYUSERINFO, 0, LParam(fMyRec));
end;
procedure WMMYUSERINFO(var msg: TMessage); MESSAGE WM_MYUSERINFO;
procedure TForm7.WMMYUSERINFO(var msg: TMessage);
var
fTuuu: TmyRec ;
begin
fTuuu:=TmyRec (msg.LParam);
end;
Подскажите правильно ли такая конструкция.
У меня fTuuu - нечитаема.
как правильно передать запись через sendmessage?
← →
Сергей М. © (2006-05-24 12:41) [1]
> У меня fTuuu - нечитаема
Конструкция LParam(fMyRec) даже скомпилирована быть не может, какая уж тут "читаемость" ?
О "читаемости" есть смысл говорить лишь при условии успешной компиляции кода и при условии уточнения, внутрипроцессный или межпроцессный обмен сообщениями предполагается..
При межпроцессном это не правильно.
← →
webpauk (2006-05-24 12:43) [2]
> Сергей М. © (24.05.06 12:41) [1]
а как передать структуру?
← →
webpauk (2006-05-24 12:51) [3]вроде нарыл:
SendMessage(fHWND, WM_COPYDATA, 0, Integer(@fMyRec));
procedure TForm7.WMCopyData(var Msg: TWMCopyData);
var
fTuu:TUsersFromGroup;
begin
fTuu:=TUsersFromGroup(msg.CopyDataStruct.dwData);
ShowMessage(fTuu[0].Caption);
end;
← →
webpauk (2006-05-24 12:54) [4]ShowMessage(fTuu[0].Caption);~ShowMessage(fTuu.var2);
(в рамках вышеизложенного так правильно)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2006.07.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c
