Yorumları: 2.017
Konuları: 246
Kayıt Tarihi: 09-08-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 4.370
Uzman
17-09-2016, Saat: 09:14
(Son Düzenleme: 17-09-2016, Saat: 10:37, Düzenleyen: yhackup.)
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 ?
Yorumları: 1.460
Konuları: 80
Kayıt Tarihi: 05-08-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 11.868
Üstad
(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
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
Yorumları: 2.017
Konuları: 246
Kayıt Tarihi: 09-08-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 4.370
Uzman
Evvet tamda aradığım buydu teşekkürler
Yorumları: 1.460
Konuları: 80
Kayıt Tarihi: 05-08-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 11.868
Üstad
Rica ederim.
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...