Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: mouse Sağ tuşu iptal etmek.....  (Okunma sayısı 2269 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

muderless

  • Ziyaretçi
mouse Sağ tuşu iptal etmek.....
« : 26 Kasım 2005 01:43:41 »
Kod: [Seç]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}




procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if button=mbright then showmessage('sağ tuşa basıldı');
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if button=mbright then showmessage('sağ tuşa kullanılamaz');
end;

end.
« Son Düzenleme: 01 Ocak 2006 20:12:40 by Fatih »
Kayıtlı

muderless

  • Ziyaretçi
Ynt: mouse Sağ tuşu iptal etmek.....
« Yanıtla #1 : 01 Ocak 2006 16:21:25 »
örnek ekte .......

iyi çalışmalar
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »