ScreenActiveControl ozelliği hakkında

[adelphiforumz]

S.A.

bir MDI form var bu mdi form üzerinde ApplicationMessage içerisinde Screen.ActiveControl özelliğini kullanarak bazı işlemler yapıyor
ekrana bir form açıp kapattığımda Screen.ActiveControl özelliği nil oluyor
eğer bu özellik nil ise bu özelliğe bir kontrol atamak istiyorum fakat bir türlü başaramadım
nasıl bir yöntem uygulayabilirm.

Teşekkürler

[SimaWB]

Yanımda Delphi olmadığından internetten baktım: Yardım sayfasından okuduğum kadarıyla ActiveControl özelliği read-only.
ActiveControl'u değiştirmek için SetFocusedControl'u kullanmalısınız.

[sabanakman]

Kod: Tümünü seç

if not Assigned(Screen.ActiveControl) then
 Form2.Edit3.SetFocus;

[adelphiforumz]

Bu işlemleri yapıyorum fakat yinede Screen.ActiveControl özelliği nill geliyor
ancak mouse ile bir focused edilebilen nesnenin üzerine manuel tıklandığında Screen.ActiveControl nesnenin değerini alıyor.
Bu manuel mouse ile tıklama olayını yapmadan nasıl çözülebilir
Teşekkürler

[ikra]

Kod: Tümünü seç

function TCustomForm.SetFocusedControl(Control: TWinControl): Boolean;

Bu prosedür isini görüyor.

[ikra]

Kod: Tümünü seç

function TCustomForm.SetFocusedControl(Control: TWinControl): Boolean;

Bu prosedür isini görüyor.

Pardon. Ben yukaridaki mesaji görmedim.