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


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Edit içindeki tarihin doğru olup olmadığını kontrol etmek? hasansavci 2 359 17-10-2023, Saat: 03:35
Son Yorum: mcuyan
  Mouse Orta tuşu ile Dbgrid Scroll unu hareket ettirme stevenskat 2 365 22-08-2023, Saat: 22:37
Son Yorum: stevenskat
  Mouse Tıklatma apachi2006 7 2.054 08-02-2022, Saat: 11:57
Son Yorum: apachi2006
  Mouse Up eventinda click sayımı kofmaster 7 2.216 08-04-2021, Saat: 00:57
Son Yorum: savasabd
  Tag kontrol özeliği ile Başla- Durdur düğmesi muratbdllh 7 2.508 07-04-2021, Saat: 03:48
Son Yorum: muratbdllh



Konuyu Okuyanlar: 1 Ziyaretçi