CHM-Datei im eigenen Formular anzeigen

[joehoehal]

Hallo CCRDude,
danke für den Tipp. Das hat mich schon weiter gebracht, aber leider noch nicht ans Ziel.
Ich kann mit deinem Code das Hilfe-Fenster im Client-Bereich meines Formulars anzeigen. Allerdings sehe ich dann immer noch den Rahmen, der nicht zu meinem Style passt. Ich habe versucht, die störenden Bereiche mit Panels abzudecken. Das funktionert mit BringToFront auch. Aber sobald ich einmal außerhalb des Hilfe-Bereichs und dann wieder zurück klicke, kommen die abgedeckten Bereiche wieder zum Vorschein. Ich kann die Panels auch nicht wieder nach vorn bringen, weil ich kein Ereignis finde, das beim Klicken auf den Hilfe-Bereich ausgelöst wird.
Am besten wäre es, wenn man nicht das gesamte Hilfe-Fenster, sondern nur den Client-Bereich in ein ein anderes Formular einfügen könnte. Dafür habe ich aber weder in SetWindow einen geeigneten Parameter noch sonst eine brauchbare Prozedur gefunden.
Gruß! joehoehal

[CCRDude]

Das mit dem Client-Bereich meinte ich mit dem "Inhalt rausholen"

Mal kurz zwei Ansätze skizziert:

1. Fenster größer machen als das Parent-Control, dann verschwindet der Rahmen auch. Siehe Ansatz mit rpmMain.
2. Alle Kindelemente mit verschieben (das meintest Du, und auch schon ich mit "Inhalte rausholen). Mit viel Arbeit besser, aber da hat mein Code noch große Lücken (richtige Positionierung, vor allem aber das Message-Handling).

Nutzung in meinem Beispielprojekt:

Delphi-Quellcode:

procedure TForm1.bn1Click(Sender: TObject);
begin
   Application.HelpShowTableOfContents;
   FHelper.Control := panel2;
   FHelper.Attach('titel meiner hilfedatei');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   FHelper := THTMLHelpViewerHelper.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   FHelper.Free;
end;

procedure TForm1.panel2Resize(Sender: TObject);
begin
   FHelper.ReAlign;
end;

Hab's mal angehängt

[EWeiss]

Zitat:

Allerdings sehe ich dann immer noch den Rahmen,

Na ja wenn das alles ist?

Style := Style and not WS_BORDER;

gruss

[CCRDude]

Ok, mit der Methode von EWeiss geht es auch Nur auch WS_SIZEBOX ausschließen... in meiner Beispiel-Unit sähe die Methode RefreshChildHandles dann so aus:

Delphi-Quellcode:

procedure THTMLHelpViewerHelper.RefreshChildHandles;
var
   rClient, rWindow: TRect;
   iFrameWidth, iFrameHeight: integer;
   iStyle: integer;
begin
   if FMainWindowHandle > 0 then begin
      case FMethod of
         rpmMain: begin
               // get window dimensions to hide frame
               FMainWindowDiff.Left := 0;
               FMainWindowDiff.Right := 0;
               FMainWindowDiff.Top := 0;
               FMainWindowDiff.Bottom := 0;
               iStyle := GetWindowLong(FMainWindowHandle, GWL_STYLE);
               iStyle := iStyle and (not WS_BORDER) and (not WS_SIZEBOX);
               SetWindowLong(FMainWindowHandle, GWL_STYLE, iStyle);
               Windows.SetParent(FMainWindowHandle, FControl.Handle);
            end;
         rpmChilds: begin
               // we're resizing this to have e.g. toolbar wrapped according to target size
               Windows.SetWindowPos(FMainWindowHandle, 0, 0, 0, FControl.ClientWidth, FControl.ClientHeight, 0);
               // need to hide since it won't contain any further controls
               Windows.ShowWindow(FMainWindowHandle, SW_HIDE);
               // TODO : we need to change message loops etc. for this to work!
                // now moving all childs
               EnumChildWindows(FMainWindowHandle, @HelpWindowChildsEnum, integer(Self));
            end;
      end;
      ReAlign;
   end;
end;

[joehoehal]

Ich habe inzwischen eine ganz einfache Lösung gefunden:

• Hilfe-Fenster nicht direkt im Client-Bereich des Formulars, sondern mit SetWindow / SetWindoPos auf einem Panel anzeigen.

• Größe und Position des Panels so einstellen, dass der Rahmen des Hilfe-Fensters nicht sichtbar ist. So lässt sich auch das Resizing leicht reakisieren.

Sicher nicht die eleganteste Lösung, aber sie funktioniert und ist für meine Bedürfnisse ausreichend.