Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 4.5/5 - 2 oy
  • 1
  • 2
  • 3
  • 4
  • 5
mouse kontrol
#1
Selam; kullanıcı edit içindeki saati mause topu ile kontrol etmek istiyorum saat artacak veya azalacak;
Fakat bir türlü mouse kontrolünü sağlayamayabileceğim kod bulamadım, acaba bu kontrolü nasıl sağlaya bilirim? 



function MyTimem(StrTime: TTime): Time;
begin
StrTime:= Edit1.Text+1;
end;
Cevapla
#2
Timeedit nesneleri var onları kullanabilirsiniz.
Cevapla
#3
Edit gibi WinControl neslerinin hepsinde bu gibi olaylar için windows mesajları mevcuttur. Burada da Edit in orta fare windows mesajını yakaladığında istediğin şekilde kullanabilirsin. Örnek:

type
 TForm1 = class(TForm)
   Edit1: TEdit;
   procedure FormCreate(Sender: TObject);
 private
   OldEditMsg : TWndMethod;
 public
   procedure Edit1WindowProc(var msg: TMessage);
 end;


Form üzerindeki Edit1 nesnesinin windows orta fare mesajını yakalayıp gerekli işlemleri yaptıran kod:

procedure TForm1.FormCreate(Sender: TObject);
begin
  OldEditMsg := Edit1.WindowProc;
  Edit1.WindowProc := Edit1WindowProc;
end;

procedure TForm1.Edit1WindowProc(var msg: TMessage);
var
 ticks: ShortInt;
begin
 if msg.Msg = WM_MOUSEWHEEL then
   begin
     ticks := HiWord(msg.wparam);
     if ticks > 0 then
         Edit1.Text := IntToStr(StrToInt(Edit1.Text) + 1)
     else
         Edit1.Text := IntToStr(StrToInt(Edit1.Text) - 1);
   end
 else
   OldEditMsg(msg);
end;

Görünüm:
EditScroolWhell.gif
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Windows Servislerini Kontrol Etmek tgural 4 435 09-10-2017, Saat: 13:21
Son Yorum: SimaWB
  Mouse double click Lord_Ares 18 1.153 02-08-2017, Saat: 10:21
Son Yorum: ismailkocacan
  adoquery dbgrid içindeki datalara if else ile kontrol ettirmek emrekilinc1984 6 1.511 05-11-2016, Saat: 17:08
Son Yorum: emrekilinc1984
  adoquery dbgrid içindeki datalara if else ile kontrol ettirmek emrekilinc1984 5 1.823 01-11-2016, Saat: 16:58
Son Yorum: CaglarCoskun
  Projeyi yedekleme - Versiyon kontrol engerex 4 1.900 27-09-2016, Saat: 16:21
Son Yorum: Fesih ARSLAN



Konuyu Okuyanlar: 1 Ziyaretçi