Mega Code Archive

 

Categories / Delphi / Examples

 

Mouseun sag tusuna kullanmak

//bu örnekte form üzerinde mouse'un sag tusuna basilinca merhaba yazan bir mesaj cikar procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if ssright in shift then begin MessageDlg('Merhaba', mtInformation, [mbOk], 0); end; end;