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 Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
WWW
Cevapla
#2
(17-09-2016, Saat: 09:14)yhackup Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.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 Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız. mesajı ile ve taşınma işleminin bitişini Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız. 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 Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
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 Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
WWW
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Formun ve içerisindeki nesnelerin ölçeklendirmesi Abdullah ILGAZ 5 739 15-01-2019, Saat: 23:27
Son Yorum: CesuR
  Kodun anlaşılabilirliği için nasıl bir yol izliyorsunuz standartlarınız nedir ? boreas 9 1.093 05-12-2018, Saat: 17:38
Son Yorum: cinarbil
  Youtube için kesin çözüm nedir Lord_Ares 20 2.514 24-02-2018, Saat: 08:47
Son Yorum: Lord_Ares
  Bu ifade nedir? savasabd 9 1.631 24-09-2017, Saat: 04:38
Son Yorum: The_aLiEn
  Formun tasarım ve çalışma anındaki farkları esistem 4 1.298 01-02-2017, Saat: 12:15
Son Yorum: esistem



Konuyu Okuyanlar: 1 Ziyaretçi