Kodbank İndir

! CODEBANK 2012 !

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

ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!

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

Gönderen Konu: mouse yok  (Okunma sayısı 428 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

tdoktoru

  • Ziyaretçi
mouse yok
« : 30 Haziran 2009 11:54:26 »
arkadaslar ne hikmettir ki anlayamadım mouseun görünmesini sağlayabilecegim bi kodu ekleyebilirmisin bu kodun üzerine


Kod: Delphi
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ExtCtrls,jpeg;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Timer1: TTimer;
  12.     Panel1: TPanel;
  13.     Image1: TImage;
  14.     procedure Timer1Timer(Sender: TObject);
  15.   private
  16.     { Private declarations }
  17.   public
  18.     { Public declarations }
  19.   end;
  20.  
  21. var
  22.   Form1: TForm1;
  23.  
  24. implementation
  25.  
  26. {$R *.dfm}
  27.  
  28. procedure TForm1.Timer1Timer(Sender: TObject);
  29. var
  30. Srect,Drect,PosForme:TRect;
  31. iWidth,iHeight,DmX,DmY:Integer ;
  32. iTmpX,iTmpY:Real;
  33. C:TCanvas;
  34. Kursor:TPoint;
  35. ZoomFactor: Integer;
  36. begin
  37. begin
  38. GetCursorPos(Kursor);
  39. PosForme:=Rect(Form1.Left,Form1.Top,Form1.Left+Form1.Width,Form1.Top+Form1.Height);
  40. If not PtInRect(PosForme,Kursor) then
  41. begin
  42. If Panel1.Visible=True then Panel1.Visible:=False;
  43. If Image1.Visible=False then Image1.Visible:=True;
  44. iWidth:=Image1.Width;
  45. iHeight:=Image1.Height;
  46. Drect:=Rect(0,0,iWidth,iHeight );
  47. ZoomFactor := 1;
  48. iTmpX:=iWidth / (ZoomFactor * 4);
  49. iTmpY:=iHeight / (ZoomFactor * 4);
  50. // FARE İMLECİ GÖZÜKMÜYOR FARE NİN GÖRNMESİ İÇİN NE YAPABİLİRİM
  51. // NO MOUSE, HOW TO SCREEN MOUSE İN VİSİBLE
  52. Srect:=Rect(Kursor.x,Kursor.y, Kursor.x,Kursor.y);
  53. InflateRect(Srect,Round(iTmpX) ,Round(iTmpY));
  54. If Srect.Left<0 then OffsetRect(Srect,-Srect.Left,0);
  55. If Srect.Top<0 then OffsetRect(Srect,0,-Srect.Top);
  56. If Srect.Right>Screen.Width then OffsetRect(Srect,-(Srect.Right-Screen.Width),0);
  57. If Srect.Bottom>Screen.Height then OffsetRect(Srect,0,-(Srect.Bottom-Screen.Height));
  58. C:=TCanvas.Create;
  59. try
  60. C.Handle:=GetDC(GetDesktopWindow);
  61. Image1.Canvas.CopyRect(Drect,C ,Srect);
  62. finally
  63. C.Free;
  64. end;
  65. Application.ProcessMessages;
  66. end
  67. else
  68. begin
  69. If Panel1.Visible=False then Panel1.Visible:=True;
  70. If Image1.Visible=True then Image1.Visible:=False;
  71. end;
  72. end;
  73. end;
  74. end.
« Son Düzenleme: 30 Haziran 2009 19:38:15 by Kocaturk »
Kayıtlı

Çevrimdışı barutali

  • Administrator
  • *****
  • İleti: 2.116
  • Rep: +51/-0
  • Cinsiyet: Bay
  • Falan filan ...
Ynt: mouse yok
« Yanıtla #1 : 30 Haziran 2009 11:55:46 »
Kayıtlı



Amatör Küme Programcı

tdoktoru

  • Ziyaretçi
Ynt: mouse yok
« Yanıtla #2 : 30 Haziran 2009 11:58:20 »
dostum denedim ama olmadı mouseyi göstermedi
Kayıtlı

Çevrimdışı barutali

  • Administrator
  • *****
  • İleti: 2.116
  • Rep: +51/-0
  • Cinsiyet: Bay
  • Falan filan ...
Ynt: mouse yok
« Yanıtla #3 : 30 Haziran 2009 12:15:26 »
sizin zaten tam olarak yapmak istediğinizi adalı_efe kardeşim öğreğinde yapmış siz onun aynısını alın
procedure TForm1.Button1Click(Sender: TObject);  prosedüründeki kodları timer ınızdaki gerekli yere yapıştırın...

kolay gelsin ...
Kayıtlı



Amatör Küme Programcı
Sayfa: [1]   Yukarı git
« önceki sonraki »