Veze, linkovi
Kompjuter biblioteka
Korpa

Preporučujemo

Delphi Cookbook

Delphi Cookbook

Expert Delphi

Expert Delphi

KAKO DA – otvaranje pop-up menija bilo kojim OnClick događajem

Pregleda (30 dana / ukupno): 13 / 1949

Ponekad je korisnicima aplikacija potrebno omogućiti poziv Pop-Up menija klikom na neko dugme, posebno u slučajevima kada korisnici nisu dovoljno obučeni.

Kontrola TPopupmenu i kontrole koje poseduju mogućnost “desnog-klika” predstavljaju dobro rešenje za sve korisnike. Međutim, ponekad korisnici aplikacija ne znaju da imaju mogućnost korišćenja desnog klika, pa je tada dobro da pop-up meni pozovemo klikom na neki dugmić ili sličnu kontrolu. Korišćenjem metode OtvoriPopUp() koju ćemo vam predstaviti u narednim redovima, moćićete da otvorite bilo koji pop-up meni iz bilo kog dela obrade događaja OnClick, bilo koje kontrole u vašoj aplikaciji. Potrebno je samo da programski kôd sličan ovom dole smestite u obradu događaja Click.

Programski kôd

procedure TForm1.Button1Click(Sender:TObject);
begin
OtvoriPopUp(Sender,PopUpMenu1);
end;

Procedure OtvoriPopUp(TheControl:Tobject; PopMenu:TPopMenu);
var
p:TPoint;
r:TRect;
begin
If (TheControl Is TButtonControl) Then
Begin
// smeštanje pop menija na dno dugmića
GetWindowRect(TButtonControl(TheControl).handle,r);
p.x:=r.Left;
p.y:=r.Bottom;
End Else Begin
GetCursorPos(p);
End;
Popmenu.Popoup(p.x, p.y);
End;

Pripremio: Milenko Kusurović

 

         
Twitter Facebook Linkedin Pinterest Email
         

Budite prvi koji će ostaviti komentar.

Ostavite komentar Ostavite komentar

 

 

 

Veze, linkovi
Linkedin Twitter Facebook
 
     
 
© Sva prava pridržana, Kompjuter biblioteka, Beograd, Obalskih radnika 4a, Telefon: +381 11 252 0 272