[delphi] Submenu uitklappen via andere button

[Verwijderd]

Dag Programmeurs,

Momenteel ben ik me nog aan het orienteren binnen Delpi (2009) in Codegear Rad Studio.
Nu heb ik een Actionmanager opgezet met daarin een Actionbar.
Op deze Actionbar heb ik dan weer TActionClientItems staan die ook weer (sub)TActionClientItems bevatten.
Er verschijnt dan netjes (ergens onderwater getekend) een soort van extra pijltje naar de "eerste" button.
Als ik op het pijltje klik opend netjes het submenu, maar de button zelf heeft een eigen aparte actie.
Weet iemand hoe ik de klik van de "hoofd" button kan linken/doorlusse/o.i.d. aan het pulldownmenu, zodat het niet uitmaakt of je op de button zelf klikt of op het pijltje ernaast?
Heb nu zoiets als

code:

procedure TEnvelopForm.Action1Execute(Sender: TObject);
begin
  inherited;
  //ShowMessage('ToDo');
  actionmanager4.ActionBars[0].Items[5].Items[0].Visible:=True;
end;

Maar dit beheerd dit het uit te klappen gedeelte terwijl het nog onzichtbaar is.
Ik kan dus wel via de hoofdknop zeg maar de Caption aanpassen, maar dan moet ik nog op het pijltje klikken om het menu te zien (en dus de gewijzigde Caption).

[Woy]

Het gaat neem ik aan gewoon over een SplitButton? Dan zou je even moeten kijken hoe je het DropDown menu kan benaderen.

In .NET kan je volgens mij ( Als ik even zo snel in de MSDN kijk ) gewoon met

C#:

splitButton.ShowDropDown();

Of eventueel

C#:

splitButton.DropDown.Show();

de dropdown laten zien. Het lijkt me dat dat in jouw omgeving op een soortgelijke manier gaat.

[ Voor 8% gewijzigd door Woy op 15-07-2009 10:49 ]

[Verwijderd]

Hey Woy,

Het lijkt inderdaad op een splitbutton, maar binnen Delphi zijn "echte" spiltbuttons Vista Only.
Dus het is niet echt aan te spreken als zijnde een spiltbutton, want deze button werkt ook in < Vista.

[Woy]

Maar het zal toch gewoon als een soort splitbutton gedefineerd zijn? Dat wil zeggen eigenlijk 2 buttons ( 1 default action en een drop down arrow ) en een DropDown menu. Je zult dus op het containing control een method aan moeten roepen, of het drop-down control moeten localiseren en die visible zetten.

[Verwijderd]

In die richting moet ik inderdaad wel zoeken.
Ergens onder water is het uiteindelijk een button en bij een button kun je inderdaad gewoon een dropdownmenu tonen. Via het pad is het momenteel alleen nog even lastig om te typecasten naar een TButton.

code:

procedure TEnvelopForm.Action1Execute(Sender: TObject);
var
  btn: TButton;
begin
  inherited;
  //ShowMessage('ToDo');
  btn:=actionmanager4.ActionBars[0].Items[5];
  btn.DropDownMenu.Popup(500,500);
end;

wil nog niet echt

[Woy]

Verwijderd schreef op woensdag 15 juli 2009 @ 11:29:
wil nog niet echt

Dat is nogal vaag, beschrijf dan even duidelijk welke foutmelding je krijgt! En verder is het handig als je gewoon in de documentatie duikt. Je zult op moeten zoeken welk type je hebt, en welke methode je daar op aan moet roepen. Zomaar in het wilde weg wat dingen proberen is natuurlijk niet de meest efficiënte manier.

[The Fox NL]

Ik heb hier even snel wat geprobeerd met Turbo Delphi 2006. Volgens mij ondersteund de TActionBar niet wat jij wilt. Jij hebt een ActionClientItem, en daaronder hangen er nog meer. Aan een ActionClientItem wordt een Action gehangen, de ActionToolBar geeft dat ook zo weer, ook al bedoel jij iets anders.

Wat jij denk ik wil is een normale menubar. Sleep dus een TMainMenu op je form, ontwerp het menu en koppel daar je actions aan. Wil je geen mainmenu, maar een toolbar, dan heb je meer vrijheid met een TToolbar, maar is de TActionToolbar waarschijnlijk voldoende.

[Verwijderd]

Delphi:

TCustomDropDownButton(actionmanager4.ActionBars[0].Items[5].Items[0].Control).DropDownClick;

in je Action.OnExecute zetten should do the trick...