OK, also:
Aufgabe ist: Das ein Itemindex einer RadioGroup der einen Anwendung and eine Radiogroup der anderen Anwendung gechickt wird.
Es geht zwar auf der einen Seite mit
Senderanwendung:
SendMessage(ParentHandle,WM_SELECTRADIOBUTTON,RadioGroup.ItemIndex,0);
Empfängeranwendung:
Delphi-Quellcode:
procedure GetItemIndex(var msg: TMessage); message WM_SELECTRADIOBUTTON;
.
.
procedure Ttf_empfang.GetItemIndex(var msg: TMessage);
begin
RadioGroup1.ItemIndex:=msg.WParam;
end;
das FormularHandle übergebe, allerdings habe ich in einem Buch eine andere Möglichkeit gesehn bei der man das ApplicationHandle übergeben muss, was dann so aussieht:
Senderanwendung:
SendMessage(ParentHandle,WM_SELECTRADIOBUTTON,RadioGroup.ItemIndex,0);
Empfängeranwendung:
Delphi-Quellcode:
procedure GetItemIndex(var Msg :TMsg;var Handeled : Boolean);
.
.
procedure Ttf_empfang.GetItemIndex(var Msg :TMsg;var Handeled : Boolean);
begin
case Msg.Message of
WM_SELECTRADIOBUTTON : RadioGroup1.ItemIndex:=Msg.wParam;
end;
end;
Delphi-Quellcode:
procedure Ttf_empfang.FormCreate(Sender: TObject);
begin
Application.OnMessage:=GetItemIndex;
end;
so das wars. Bei dem ersten Beispiel brauche ich wie gesagt das Fensterhandle und bei dem zweiten das Application
Handle.
Ich weis das ich es ja auch mit dem ersten machen kann, mich würde aber trotzdem interessieren wie ich an ein ApplicationHandle drankommen kann