Witam
Zwaracam sie z prosbą o pomoc :-) bo mam problemik ;-( Otóż chciał bym alby po naciśnięciu SpeedaButtona rozwijało mi się z niego menu. Powiedzmy mam button "Nowy" i jak klikne na niego ma mi sie rozwinąc lista i zebym tam mógł wybrac "Klient", "Dostawca", itd Nie mam pomysły jak to zrobić wie licze że mi ktos pomoże. Dzieki
Pozdrawiam
0
0
W OnClick wywołuj Popupnięcię wybranego menu. Prosciej by bylo gdyby zamiast TSpeedButta był potomek TWinControl wtedy łatwo pobrać jego pozycję na ekranie i popupnąc menu. Możesz tez zrobić tak, ale to nie najlepszy pomysl:
Var P:TPoint;
begin
GetCursorPos(P);
PopupMenu1.Popup(P.X,P.Y);
end;
0
THX wsio jest OKi Ale jest jakiś sposób żeby pobrać pozycje buttona albo zeby te popupmenu sie przykleiło do dolnej lub bocznej krawędzi buttona. LAbo może mozna poprać pozycje kursora w jakeij znajduje sie na formie a nie na ekranie. Bo nie bardzo wiem jaki potomet TWinControl. Ja dopiero raczkuje w programowaniu wiec do mnie trzeba jakd o niemowlęcia pisac :) Dzieki
Pozdrawiam
0
var
P: TPoint;
begin
P:=Point(0, SpeedButton1.Height + 1);
P:=SpeedButton1.ClientToScreen(P);
// i teraz popup
end;
0
Wielkie Dzięki wszystko działa tak jak chciałem :-) POzdrawiam
na razie :)