Hilfe Button in Bordericons

[Nagetier]

Ich denke mal, jeder kennt doch diesen kleinen Button neben schließen, minimieren etc in der Leiste oben, meistens bei System Fenstern, dann klickt man den an, klickt was aufm Fenster an und bekommt diese gelben Boxen mit nem Hilfe Text...

Jetz kann ich diesen Button auch in Delphi einfügen, allerdings geht er anscheinend nicht, bzw lässt sich nicht drücken...

Jetzt meine Fragen, wie kann ich ihn richtig "aktivieren" und wie kann ich die HIlfe Texte erstellen, welche erscheinen sollen?

Danke

Nager

[Hobby-Programmierer]

Nabend ...,
ich dachte immer der Hilfebutton liess sich nur bis Win98 aktivieren

LG Mario

[Nagetier]

Keine Ahnung, bei mir gehts auf jedenfall "biHelp" heißt der, und die gibts ja auch im normalen Windows (XP) wenn man die Eigenschaften des Arbeitsplatzes aufruft zb!

[bitsetter]

Hallo,

eventuell hilft dir dieser Link weiter
Das Fragezeichen-Icon

[Nagetier]

So, habe jetzt nach seehr langer Zeit endlich mal weiter gemacht mit dem Hilfe Teil, allerdings habe ich mir überlegt das Hilfe Icon jetzt anders zu gebrauchen und zwar soll dann eine .chm Hilfe Datei aufgerufen werden, sobald man dieses Icon anklickt...

Edit: Ok, habe gerade gesehen, dass das erwähnte Helpware da abhilfe schaffen kann, allerdings klappt es trotz dem OnHelp Fixes nicht, dass ich den Klick auf das biHelp abfangen kann und es anders zu nutzen...

Was ist denn da los?
Mein Code:

Delphi-Quellcode:

uses
 ..., D6OnHelpFix;

[...]

function TForm1.FormHelp(Command: Word; Data: Integer;
  var CallHelp: Boolean): Boolean;
begin
  ShowMessage('Hilfe!');
end;

[Luckie]

So geht es:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure WndProc(var msg: TMessage); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WndProc(var msg: TMessage);
begin
  case msg.Msg of
  WM_SYSCOMMAND:
    begin
      if msg.WParam = SC_CONTEXTHELP then
      begin
        ShowMessage('Hilfe');
        exit;
      end
    end;
  end;
  inherited;
end;

[Nagetier]

Das geht leider nicht...

Der biHelp Button reagiert immer noch nicht auf einen Klick...
Das Problem ist denke ich sogar mal, dass ich den einfach nicht klicken kann, also da passiert nix, aktiviert ist er aber

[bitsetter]

Hi,

bei mir funktioniert der Code von Luckie absolut problemlos. Ein Projekt habe ich mal angehängt, das kannst du ja mal selber testen. Irgendwo muss bei dir doch noch ein Fehler sein.

[Nagetier]

Genau so ist es auch bei mir, aber es geht einfach nicht, ich kann diesen Button gar nicht klicken, das ist als würde ich auf ein nichts klicken, der drückt sich nicht ein

Wie die Leiste oben aussieht hab ich mal in einem Screenshot angehängt...
Im Objekt Inspektor hab ich das so eingestellt:

Delphi-Quellcode:

biSystemmenue true
biMaximize false
biMinimize true
biHelp true

Borderstyle bsSingle

Hat es was damit zu tun?
Weil in bits Programm sind ja alle Icons ausgeblendet, bis auf Schließen und Help...

So schaut das ganze aus:
http://img517.imageshack.us/img517/2382/leistexh2.png

Edit:Wenn ich Minimize deaktiviere geht es, aber ich brauch Minimize eigentlich, also ich wills nicht rauslassen

[halinchen]

DSDT

Das Fragezeichen wird zur Laufzeit jedoch nur angezeigt, wenn das Fenster nicht gleichzeitig auch noch einen Minimize- oder Maximize-Button enthält.

Das sollte das Problem erklären, nur wird er bei dir angezeigt, ist aber deaktiviert.