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 ?
blog.yakupulutas.com
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
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
blog.yakupulutas.com
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;
blog.yakupulutas.com
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Formun ve içerisindeki nesnelerin ölçeklendirmesi Abdullah ILGAZ 5 574 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 836 05-12-2018, Saat: 17:38
Son Yorum: cinarbil
  Youtube için kesin çözüm nedir Lord_Ares 20 2.148 24-02-2018, Saat: 08:47
Son Yorum: Lord_Ares
  Bu ifade nedir? savasabd 9 1.394 24-09-2017, Saat: 04:38
Son Yorum: The_aLiEn
  Formun tasarım ve çalışma anındaki farkları esistem 4 1.167 01-02-2017, Saat: 12:15
Son Yorum: esistem



Konuyu Okuyanlar: 1 Ziyaretçi