"echter" Dropdown-Toolbutton...

[FriFra]

Wie mache ich einen Toolbutton zu einem "echten" DropDown-Toolbutton (Abbildung links.; Explorer)? Unter Delphi bewirkt der Style tbsDropDown (Abblildung rechts) nur, dass beim Klick rechts auf den Button das Menü aufpoppt... aber im Explorer öffnet der komplette Button das Menü!
http://www.frifra.de/Temp/tbtest.jpg

[mirage228]

Du musst auch nicht Popup, sondern DropdownMenu im OI setzen... oder hast du das schon?

mfG
mirage228

[FriFra]

Das hab ich schon :? ...

[jonny]

Du kannst im OnClick Ereigniss des Buttons
folgendes angeben:

Code:

procedure btDropDownClick(Sender: TObject);
begin
  popmenueDropDownBtn.PopUp(Self.Left + btDropDown.Left + 5, Self.Top + (Self.Hight - Self.ClientHeight) + btDropDown.Top + btDropDown.Height);
end;

Dann Kommt das Menü ganz wie in dem Explorer genau unter dem Button. Wenn du den Button auf Panels sitzen hast und die Left eigenschaft nicht bei 0 liegt musst du die auch noch in die Formel einbauen.

[FriFra]

@Jonny: Dann hat der Button immernoch nicht den richtigen Style! Ich will auch den blöden "divider" innerhalb des Buttons weg haben... er wäre auch weg, wenn der Style stimmt.

[jonny]

Mann könnte höchstens mal einen eigenen Pfeil malen dann in ein BitBtn einfügen und dann wie oben beschrieben verfahren. ist zwar nicht die Eleganteste Lösung es ist aber eine.

[FriFra]

Nein, solche Basteleien will ich nicht...

Lt. MSDN gibt es einen Style BTNS_WHOLEDROPDOWN =$0080;... nur wie sende ich einem Toolbutton, das ja kein Handle hat, eine Message, dass es diesen Style verwenden soll?

[scp]

So gehts:

Delphi-Quellcode:

uses
  CommCtrl; // Nicht vergessen und nicht mit ComCtrls verwechseln

procedure TBSetWholeDropDown(hTB : THandle; iButton : integer);
var
  tBB : TTBBUTTON;
  tBI : TBBUTTONINFO;
const
  BTNS_WHOLEDROPDOWN =$0080;
begin
  FillChar(tBB, SizeOf(tBB), 0);
  SendMessage (hTB, TB_GETBUTTON, iButton, Integer(@tBB));
  FillChar(tBI, SizeOf(tBI), 0);
      tBI.cbSize := SizeOf(tBI);
      tBI.dwMask := TBIF_STYLE;
  SendMessage(hTB, TB_GETBUTTONINFO, tBB.idCommand, Integer(@tBI));
  tBI.fsStyle := tBI.fsStyle or BTNS_WHOLEDROPDOWN;
  SendMessage(hTB, TB_SETBUTTONINFO, tBB.idCommand, Integer(@tBI));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TBSetWholeDropDown(ToolBar1.Handle, 0);
end;

Wobei iButton der Index des Buttons ist.

[FriFra]

Danke ;)

Ich hab den Code noch etwas erweitert, da dieser Style erst ab IE5 verfügbar ist und es mit IE4 (oder früher) zu unerwarteten Verhalten kommen könte:

Delphi-Quellcode:

uses
  CommCtrl, Registry;


procedure TBSetWholeDropDown(hTB: THandle; iButton: integer);
  function IEReady: Boolean;
  var
    Reg: TRegistry;
    Tmp: string;
  begin
    Result := False;
    Reg := TRegistry.Create;
    try
      Reg.Access := KEY_READ;
      Reg.RootKey := HKEY_LOCAL_MACHINE;
      Reg.OpenKey('Software\Microsoft\Internet Explorer', False);
      Tmp := Reg.ReadString('Version');
      if pos('.', Tmp) > 0 then
        Tmp := copy(Tmp, 1, pos('.', Tmp) - 1);
      Result := StrToIntDef(Trim(Tmp), 0) >= 5;
      Reg.CloseKey;
    finally
      Reg.Free;
    end;
  end;
var
  tBB: TTBBUTTON;
  tBI: TBBUTTONINFO;
const
  BTNS_WHOLEDROPDOWN = $0080;
begin
  if IEReady then
  begin
    FillChar(tBB, SizeOf(tBB), 0);
    SendMessage(hTB, TB_GETBUTTON, iButton, Integer(@tBB));
    FillChar(tBI, SizeOf(tBI), 0);
    tBI.cbSize := SizeOf(tBI);
    tBI.dwMask := TBIF_STYLE;
    SendMessage(hTB, TB_GETBUTTONINFO, tBB.idCommand, Integer(@tBI));
    tBI.fsStyle := tBI.fsStyle or BTNS_WHOLEDROPDOWN;
    SendMessage(hTB, TB_SETBUTTONINFO, tBB.idCommand, Integer(@tBI));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  TBSetWholeDropDown(ToolBar1.Handle, 0); 
end;

[FriFra]

Ein kleines Schönheitsproblem gibt es noch...

Irgendwie ist der bettr. Toolbutton zu breit geraten:
http://www.frifra.de/Temp/tbalign.jpg

...obwohl AutoSize=True ist... Der Pfeil sollte schon näher am Glyphen sein :?

[Luckie]

Zitat:

Zitat von FriFra

Wie mache ich einen Toolbutton zu einem "echten" DropDown-Toolbutton (Abbildung links.; Explorer)? Unter Delphi bewirkt der Style tbsDropDown (Abblildung rechts) nur, dass beim Klick rechts auf den Button das Menü aufpoppt... aber im Explorer öffnet der komplette Button das Menü!
http://www.frifra.de/Temp/tbtest.jpg

Komisch, was hast du für ein Delphi? Bei mir geht es, ohne dass ich was dran machen muss. Toolbar drauf, Buton hinzugefügt, PopupMenü drauf, Items hinzugefügt, ToolbarButtonStyle auf tbsDropDown und mit dem Menü verknüpft - fertig. Resultat siehe Anhang.

[FriFra]

Zitat:

Zitat von Luckie

Komisch, was hast du für ein Delphi? Bei mir geht es, ohne dass ich was dran machen muss. Toolbar drauf, Buton hinzugefügt, PopupMenü drauf, Items hinzugefügt, ToolbarButtonStyle auf tbsDropDown und mit dem Menü verknüpft - fertig. Resultat siehe Anhang.

Ich hab wohl das gleiche Delphi wie Du ;) ... schliesslich zeigt Dein Beispiel auch nur ein ToolButton mit dem Style "DropDown" und eben nicht "WholeDropDown"! Und genau darum ging es ja :-D :gruebel:

Schau Dir doch die Toolbuttons auf dem Bild mal genauer an ;) ...

[Luckie]

Du wolltest doch, dass das Menü so aufgeht, wie links in deinem Bild oder? Das tut es doch oder nicht?

[FriFra]

Zitat:

Zitat von Luckie

Du wolltest doch, dass das Menü so aufgeht, wie links in deinem Bild oder? Das tut es doch oder nicht?

Nein, tut es nicht! Aber ich hab doch schon die Lösung...
Auch in Deinem Beispiel geht es nicht so wie ich es will... schau Dir doch mal den Code an und sieh Dir an was er bewirkt, dann wirst Du sehen, das die Borlander da tatsächlich etwas wichtiges vergessen haben.