Windows.Setparent Form içindeyken görmemesi.

[Shou]

Merhabalar şöyle bir kod var.

Kod: Tümünü seç

procedure TForm1.Timer1Timer(Sender: TObject);
Var
WindowsNumarasi : THandle;
WindowsAdi : String;

begin
WindowsNumarasi := FindWindow(nil, 'Hesap Makinesi');

if WindowsNumarasi= 0 then begin
ShowMessage('pencere bulunamadı.');
end else
Windows.Setparent( WindowsNumarasi, Form1.Handle );
end;

Bu kod dielim hesap makinasını açınca kendi formuna çekıyor ya peki dışardan Hesap Makinesi açık mı degilmi görmüyor bunu görmesi için ne yapmam gerekıyor?

Örneğin ;

Kod: Tümünü seç

FindWindow('Hesap Makinesi',nil);

ile sorgulatıyorum form içinde degilken görüyor ama fotm içine girince görmüyor bunu görmesini nasıl saglarız form içindeyken.

şimdiden teşekkürler cevap yazan yazmayan herkeze.