Konuyu Paylaş : facebook gplus twitter

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 ?
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#2
(17-09-2016, Saat: 09:14)yhackup Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba
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 Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol mesajı ile ve taşınma işleminin bitişini Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol 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
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
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;
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Youtube için kesin çözüm nedir Lord_Ares 20 971 24-02-2018, Saat: 08:47
Son Yorum: Lord_Ares
  Bu ifade nedir? savasabd 9 748 24-09-2017, Saat: 04:38
Son Yorum: The_aLiEn
  Formun tasarım ve çalışma anındaki farkları esistem 4 661 01-02-2017, Saat: 12:15
Son Yorum: esistem
  Nvarchar ve varchar farkı nedir? Mericx 1 682 24-01-2017, Saat: 10:49
Son Yorum: yhackup
Question Formun Arkada Kalması masteryoda 4 552 19-12-2016, Saat: 15:58
Son Yorum: engerex



Konuyu Okuyanlar: 1 Ziyaretçi