Kako to da isprogramiram?Delphi 7
Koriscenje desog dugmeta na misu
Zaključano
Zakačeno
Pa, generalno, treba da za kompnentu koja te interesuje obradis OnMouseDown Event. U njemu napises :
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Shift = [ssRight] then
begin
showmessage('Ciao!');
end;
end;
Pozdrav , erekoz
Moram da dodam da je daleko sigurnije umesto
napisati
za slucaj da ovaj set sadrzi jos neku informaciju (npr ako je korisnik koristio i Shift taster). Ipak, najsigurnije je:
jer tako nema sumnje a i "cistija" je sintaksa
Code:
if Shift = [ssRight] then
if Shift = [ssRight] then
napisati
Code:
if ssRight in Shift
if ssRight in Shift
za slucaj da ovaj set sadrzi jos neku informaciju (npr ako je korisnik koristio i Shift taster). Ipak, najsigurnije je:
Code:
if Button = mbRight
if Button = mbRight
jer tako nema sumnje a i "cistija" je sintaksa
Potpis
Don't try to impress me... I'm good !
Vaisitinu bezbednije...