Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Komponente informieren, wenn Formular - Caption / Icon g

  Alt 12. Dez 2005, 20:03
du brauchst einfach nur die WindowProc des Forms umleiten und auf WM_SetText prüfen:
Delphi-Quellcode:
  private
    fOldMethod: TWndMethod;
    procedure FNewWndProc(var AMsg: TMessage);
[...]
procedure TForm1.FNewWndProc(var AMsg: TMessage);
begin
  if (AMsg.Msg = WM_SETTEXT) then
  begin
    //In PChar(AMsg.LParam) steht die neue Caption
  end;
  fOldMethod(AMsg);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  fOldMethod := WindowProc;
  WindowProc := FNewWndProc;
end;
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat