message kommt im Fenster nicht an

[R2009]

Hi,

In memo1 stehen die Handles aller Fenster der Applikation. Ich versuche an all diese Fenster eine Message zu schicken.
Nur kommt sie da nie an.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin    //cardinal(memo1.lines.Strings[i])
  for i:=0 to 1 do SendMessage(cardinal(memo1.lines.Strings[i]),SET_LNG_CMD,0,0);
end;

Hab ich mit dieser Funktion ermittelt:

Delphi-Quellcode:

function EnumWinx(hWnd: THandle; ProcID: PCardinal): Boolean; stdcall;
var
  WinProcId: cardinal;
  Text: AnsiString;
begin
  Result := True;
  if IsWindowVisible(hWnd) then
  begin
    GetWindowThreadProcessID(hWnd, WinProcId);
    if ProcID^ = WinProcId then
    begin
      form1.memo1.lines.add(inttostr(hwnd));
    end;
  end;
end;

Abgefangen werden die messages, in der jeweiligen Form mit:

Delphi-Quellcode:

const
  SET_LNG_CMD = WM_USER+2;
.....

procedure TForm1.GetMessages(var msg: TMsg; var handled: boolean);
begin
  if msg.message = SET_LNG_CMD then
  begin
    ......
    handled:=true;
  end;
end;

Was mach ich falsch? Warum kommt die Message nicht an?


Grüsse
Rainer

[Alaitoc]

Also ich bin mir nicht sicher...aber das var handled könnte Probleme machen.
Versuchs erstmal ohne?

Delphi-Quellcode:

const
  SET_LNG_CMD = WM_USER+2;

procedure GetMessages( var Msg: TMessage ); message SET_LNG_CMD;

procedure TForm1.GetMessages( var Msg: TMessage );
begin
  if msg.message = SET_LNG_CMD then
  begin
    ShowMessage('Blubb');
  end;
end;

Sonst überprüf vll mal die Handle-Eigenschaft der Forms und schau ob die Handles übereinstimmen mit deiner Liste?

MfG Alaitoc

[R2009]

Hi,

Hab die Handles verglichen, sind die gleichen.
Das Problem ist, dass die Message überhaupt nicht ankommt, also TForm1.GetMessages garnicht aufgerufen wird.
Allerdings kommt meine Message aus der gleichen Form...Vielleicht ist das das Problem.

Grüsse
Rainer

[R2009]

Hi,

geht auch aus einer anderen Form nicht:

Grüsse
rainer

[Uwe Raabe]

Dein Problem ist die Umwandlung von Integer in Strings und zurück. In die eine Richtung benutzt du korrekt IntToStr(hwnd), aber in die andere machst du einfach einen TypeCast [i]cardinal(memo1.lines.Strings). Das geht so nicht (Stichwort: TypeConversion vs. TypeCast)!

Versuch mal das: [i]StrToInt(memo1.lines.Strings)

[R2009]

Hi,
ich habe das ganze protokolliert:

Delphi-Quellcode:

procedure TForm1.GetMessages(var msg: TMsg; var handled: boolean);
var a:string;
begin
  memo3.Lines.Add(inttostr(msg.message));
  if msg.message = SET_LNG_CMD then
  begin
    a:='';
    // was ausgführt werden soll
    //handled:=true;
  end;
end;

Es kommt alles an nur meine eigenen Messages nicht. Kann es sein, das ganze findet ja innerhalb ein und derselben Applikation statt, dass die Message bereits von der application an sich abgefangen wird und erst garnicht beim Fenster ankommt.
Ich bin ziemlich ratlos.

Grüsse
Rainer

[R2009]

Hi Uwe,
hatte ich alles auch schon probiert. Funktioniert nicht.

[delphi]
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;text:ansistring;
begin
for i:=0 to memo1.lines.count-1 do
begin
SendMessage(strtoint(memo1.lines.Strings[i]),SET_LNG_CMD,1,0);
end;
end;

Ist da sonst noch irgendetwas falsch?

Grüsse
rainer

[Alaitoc]

Hast du auch mal versucht das ohne das Flag handled zu implementieren?
Also testweise? ( Wie oben in meinem Post )
Ich konnte nämlich irgendwie keinen Anwendungsfall finden, wo das so gemacht wird...

MfG Alaitoc

[R2009]

Hi,
hab ich alles probiert. Ich häng mal meinen Quelltext an. das Ganze ist mit D7 prof erstellt.

Grüsse
rainer

[Alaitoc]

Nah dann hast du dir aber scheinbar meinen Code nicht genau angeschaut

procedure GetMessages( var Msg: TMessage ); message SET_LNG_CMD; // Das Endstück fehlt Das fehlt scheinbar bei dir bei deiner Deklaration.

MfG Alaitoc