Konuyu Oyla:
  • Derecelendirme: 4/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Formun taşınması eventi nedir ?
#1
Lightbulb 
Merhaba
Formun kulağından tutup sağa sola taşıma olayında alphablend yapacağım.
Form Eventlerinde bulamadım. Bu olayı nasıl yakalarım ?
WWW
Cevapla
#2
(17-09-2016, Saat: 09:14)yhackup Adlı Kullanıcıdan Alıntı: Merhaba
Formun kulağından tutup sağa sola taşıma olayında alphablend yapacağım.
Form Eventlerinde bulamadım. Bu olayı nasıl yakalarım ?

İlgili formun taşınması işlemini WM_MOVING mesajı ile ve taşınma işleminin bitişini WM_EXITSIZEMOVE mesajı ile kontrol edebilirsin.

Örneğin:

  TForm1 = class(TForm)
  private
   //
 protected
   procedure WMMoving(var Message: TWMMoving); message WM_MOVING;
   procedure WMExitsizemove(var Message: TMessage); message WM_EXITSIZEMOVE;
   { Private declarations }
 public
   { Public declarations }

 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMExitsizemove(var Message: TMessage);
begin
 AlphaBlend := false;
end;


procedure TForm1.WMMoving(var Message: TWMMoving);
begin
 if not AlphaBlend then
   AlphaBlend := true;
end;

Tabii AlphaBlendValue property'sine de bir değer vermeyi unutmamalısın Wink
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
WWW
Cevapla
#3
Evvet tamda aradığım buydu teşekkürler
WWW
Cevapla
#4
Rica ederim.
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
WWW
Cevapla
#5
Gayet güzel oldu Smile

Formu taşırken saydamlaştırıyorum bırakınca eski haline döndürüyorum.

protected
 procedure WMExitsizemove(var Message: TMessage); message WM_EXITSIZEMOVE;
procedure WMmove(var Message: TWMMoving); message WM_MOVE;

procedure TForm4.WMExitsizemove(var Message: TMessage);
begin
   AlphaBlend := false;
   saydamlik := 255;
end;

procedure TForm4.WMmove(var Message: TWMMoving);
begin
 if (saydamlik > 150) then Dec(saydamlik);
    AlphaBlend := true;
    AlphaBlendValue := saydamlik;
end;
WWW
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  80 adet combobok hangisine tiklandi eventi. sadikacar60 8 644 06-02-2024, Saat: 20:09
Son Yorum: sadikacar60
Question Formun Arkada Kalması masteryoda 5 4.457 02-02-2023, Saat: 15:06
Son Yorum: m_ekici
Question container_of ve offsetof nedir, ne işe yarar ? seci20 2 765 03-01-2022, Saat: 21:34
Son Yorum: seci20
  METAVERSE nedir? Biz neresinde yer alacağız? Jakarta2 8 1.868 10-11-2021, Saat: 01:01
Son Yorum: yanniosman
  Formun boyutu büyüdüğünde, üzerindeki bileşenler de otomatik büyütülebilir mi? ferhatganem 25 7.611 24-03-2021, Saat: 13:50
Son Yorum: mrmarman



Konuyu Okuyanlar: 1 Ziyaretçi