Delphi-Cursor'u Gizlemek


Genel & Off Topic    Konu Dışı , Eğlence-Muhabbet , Tanışma , Yarışma & Etkinlik Bölümü

Yazar: lDarkAngeL    0 Yorum    94 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 01.08.2016, 12:44:16 #1
lDarkAngeL İçerdemiyiz ?
Efsane Üye
Status: Çevrimiçi Yorum Sayısı:1,201 Konu Sayısı:508 Üyelik Tarihi:19.03.2016 Rep Puanı: 778

PHP Kod:
Kod:
procedure rShowCursor(bShow: BOOL);
var
r: trect;
begin
if not bShow then begin // Hide
r.Top := 0;
r.Left := GetSystemMetrics(SM_CXSCREEN)
+ GetSystemMetrics(SM_CXCURSOR);
r.Right := r.Left;
r.Bottom := 0;
ClipCursor(@r);
SetCursorPos(0,0);
end else begin // Restore
ClipCursor(nil);
SetCursorPos(GetSystemMetrics(SM_CXSCREEN) div 2,
GetSystemMetrics(SM_CYSCREEN) div 2);
end;
end; 

Kullanıcı İmzası
  MemoryHackers @DwordTeam2016-2017



İmage









Aradığınızı Bulamadınız Mı ?

Konuyu görüntüleyenler:
1 Misafir