Tüm Platformlar için Hızlı Uygulama Geliştirme --->    Kitabımız...      Delphi

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
  Bu ifade nedir? savasabd 9 460 24-09-2017, Saat: 04:38
Son Yorum: The_aLiEn
  Formun tasarım ve çalışma anındaki farkları esistem 4 492 01-02-2017, Saat: 12:15
Son Yorum: esistem
  Nvarchar ve varchar farkı nedir? Mericx 1 462 24-01-2017, Saat: 10:49
Son Yorum: yhackup
Question Formun Arkada Kalması masteryoda 4 423 19-12-2016, Saat: 15:58
Son Yorum: engerex
  Yeni bir form açtığımda ilk formun altında kalıyor ve aktif hale gelmiyor sbagcioglu 2 1.162 15-12-2016, Saat: 12:27
Son Yorum: JavaCiva



Konuyu Okuyanlar: 1 Ziyaretçi