Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема при подаче сообщения WM_COPYDATA из формы в форму. [D6, WinXP]

oduvan © (2002-08-13 19:37:00)
Почемуто в этом коде глюк такой:
При посылке сообщения в ввиде кода из первой(1) программы:

var
DataStruct : TCOPYDATASTRUCT;
begin
if ListContacts.SelCount=0 then exit;
v1:=ListContacts.Selected.Caption;
v2:=ListContacts.Selected.SubItems.Strings[0];
v:=v1+"---"+v2;
with DataStruct do
begin
dwData := 0;
cbData := Length(v)+4;
lpData := Pointer(v);
end;
SendMessage(FindWindow(pchar("TPostForm"),nil),
WM_CopyData, 0, Integer(@DataStruct));//8101973

А при получении кодом из второй(2) программы:

Procedure TPostForm.onCopyData(Var Msg: TMessage);
var
v1,v2,s:string;
Begin
SetForegroundWindow(handle);
SetWindowPos(handle,HWND_TOPMOST,left,top,width,height,SWP_SHOWWINDOW);
SetWindowPos(handle,HWND_NOTOPMOST,left,top,width,height,SWP_SHOWWINDOW);
s:=pchar(PCopyDataStruct(Msg.LPARAM)^.lpData);
v1:=copy(s,1,pos("---",s)-1);
delete(s,1,pos("---",s)+2);
v2:=s;
if v2<>"" then
if pos("@",v2)>0 then
begin
Application.CreateForm(TWriteMail, WriteMail);
WriteMail.FSendName:=v1;
WriteMail.FSendEmail:=v2;
writemail.showmodal;
WriteMail.free;
end;
End;

....происходит следующее, создается и открываеся модальная форма WriteMail, при этом та форма, которая посылала сообщение(1), становится недоступной, до тех пор, пока не закроется это созданное окно (WriteMail), такое ощющение что новая форма (WriteMail) создается как потомок той формы, которая посылает сообщение, а мне надо, чтобы я мог продожать работать с формой "посыльным"(1).

Что такое?

oduvan (2002-08-13 20:35:00) [1]
Попробую!

cdaDmitriy (2002-08-13 20:01:00) [2]
и сделай это на postMessage чтобы освоюодить обработчик

cdaDmitriy (2002-08-13 19:59:00) [3]
Внутри второй(2) программы раздели прием месаги и создания
новой формы

oduvan (2002-08-13 19:39:00) [4]
Извеняюсьза граматику! Тороплюсь!

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »