Konu: mouse yok (Okunma sayısı 323 defa)

tdoktoru · « : 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) [Seç]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Panel1: TPanel;
    Image1: TImage;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
Srect,Drect,PosForme:TRect;
iWidth,iHeight,DmX,DmY:Integer ;
iTmpX,iTmpY:Real;
C:TCanvas;
Kursor:TPoint;
ZoomFactor: Integer;
begin
begin
GetCursorPos(Kursor);
PosForme:=Rect(Form1.Left,Form1.Top,Form1.Left+Form1.Width,Form1.Top+Form1.Height);
If not PtInRect(PosForme,Kursor) then
begin
If Panel1.Visible=True then Panel1.Visible:=False;
If Image1.Visible=False then Image1.Visible:=True;
iWidth:=Image1.Width;
iHeight:=Image1.Height;
Drect:=Rect(0,0,iWidth,iHeight );
ZoomFactor := 1;
iTmpX:=iWidth / (ZoomFactor * 4);
iTmpY:=iHeight / (ZoomFactor * 4);
// FARE İMLECİ GÖZÜKMÜYOR FARE NİN GÖRNMESİ İÇİN NE YAPABİLİRİM
// NO MOUSE, HOW TO SCREEN MOUSE İN VİSİBLE
Srect:=Rect(Kursor.x,Kursor.y, Kursor.x,Kursor.y);
InflateRect(Srect,Round(iTmpX) ,Round(iTmpY));
If Srect.Left<0 then OffsetRect(Srect,-Srect.Left,0);
If Srect.Top<0 then OffsetRect(Srect,0,-Srect.Top);
If Srect.Right>Screen.Width then OffsetRect(Srect,-(Srect.Right-Screen.Width),0);
If Srect.Bottom>Screen.Height then OffsetRect(Srect,0,-(Srect.Bottom-Screen.Height));
C:=TCanvas.Create;
try
C.Handle:=GetDC(GetDesktopWindow);
Image1.Canvas.CopyRect(Drect,C ,Srect);
finally
C.Free;
end;
Application.ProcessMessages;
end
else
begin 
If Panel1.Visible=False then Panel1.Visible:=True;
If Image1.Visible=True then Image1.Visible:=False;
end;
end;
end;
end.

barutali · « **Yanıtla #1 :** 30 Haziran 2009 11:55:46 »

işte senin ilacın

http://www.delphidunyasi.net/delphi-sorulari/screencapture-da-mouse-kursorunu-nasil-gosterebilirim/

tdoktoru · « **Yanıtla #2 :** 30 Haziran 2009 11:58:20 »

dostum denedim ama olmadı mouseyi göstermedi

barutali · « **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 ...

Kullanıcı

Sohbet Penceresi

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

tdoktoru

mouse yok

barutali

Ynt: mouse yok

tdoktoru

Ynt: mouse yok

barutali

Ynt: mouse yok