Farenin sağ tuşuna basıldığını anlama

Farenin sağ tuşuna basıldığında Not defteri'nin açan kod.

procedure TForm1.BtnAcMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if button=mbright then
  winexec(PChar('notepad.exe '+dosya.filename),sw_show);
end;

 

13.11.2008 10:56:53


Etiketler: pascal

Yorumlar

Bu yazıya henüz yorum yapılmamış.

Yazı hakkında yorum yapmak için, buraya tıklayın.

Kategoriler :

Arşiv :

Etiketler :

Bağlantılar :