AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Zeichnen auf Fremdes Panel

Ein Thema von Black-Horse · begonnen am 21. Feb 2008 · letzter Beitrag vom 21. Feb 2008
Antwort Antwort
Black-Horse

Registriert seit: 29. Aug 2007
9 Beiträge
 
#1

Zeichnen auf Fremdes Panel

  Alt 21. Feb 2008, 10:55
Hallo,

ich möchte gerne in einer Fremden Applikation etwas zeichnen,
dafür habe ich mir nen Testprogramm geshcrieben das nur ein Panel beinhaltet und ich habe ein Programm geshcrieben, dass darin einen Kreis zeichnen soll.
Also ermittle ich mit Das Handle der Application und dachte mir, dass ich dann, wie auf dem desktop, zeichne, jedoch funktioniert das nicht, ich bekomme keine anzeige, wenn ich GetWindowDC(0) anstelle von GetWindowDc(WindowHandle) aufrufe zeichnet er auch korrekt auf meinem desktop.


Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
 DCanvas: TCanvas;
 DHandle: HWND;
begin
  TheWindowHandle:=FindAWindow('Programmsize', '');
  if TheWindowHandle=0 then
    ShowMessage('Window not found!')
  else
  begin
    ShowWindow(TheWindowHandle, SW_SHOW);
    DHandle := GetWindowDC(TheWindowHandle);
    //DHandle := GetWindowDC(0);
    if DHandle<>0 then
    begin
     try
       DCanvas:=TCanvas.Create;
       try
         DCanvas.Handle:=DHandle;
         DCanvas.Font.Color:=clRed;
         DCanvas.Font.Size:=72;
         DCanvas.Brush.Style:=bsClear;
         DCanvas.TextOut(20, 20, 'Ein');
         DCanvas.Brush.Style := bsDiagCross;
         DCanvas.Ellipse(0, 0, 100, 100);



       finally
         DCanvas.Free;
       end;
      finally
        ReleaseDc(TheWindowHandle, DHandle)
      end;
    end
  end;
end;
Danke
  Mit Zitat antworten Zitat
Benutzerbild von gizzy
gizzy

Registriert seit: 3. Jun 2007
59 Beiträge
 
Delphi 2007 Enterprise
 
#2

Re: Zeichnen auf Fremdes Panel

  Alt 21. Feb 2008, 11:01
TheWindowHandle:=FindWindow(nil, 'Programmsize'); Probier es mal damit
David
  Mit Zitat antworten Zitat
Black-Horse

Registriert seit: 29. Aug 2007
9 Beiträge
 
#3

Re: Zeichnen auf Fremdes Panel

  Alt 21. Feb 2008, 11:05
Findwindow liefert das gleiche Handlezurück wie ich es auch mit enumwindows herusgefunden hatte, das funktioniert leider auch nciht

Edit : ic hhätte vllt anmerken sollen, dass FindAWindow das Handle zurückliefert
  Mit Zitat antworten Zitat
Black-Horse

Registriert seit: 29. Aug 2007
9 Beiträge
 
#4

Re: Zeichnen auf Fremdes Panel

  Alt 21. Feb 2008, 13:52
Also es leigt wohl daran, das sich die falsche id an der hand habe, wenn ich mir die Threadid ausgeben lasse von meinem fenster und diese mit enumthreadwindows aufrufe komme ich an das handle und kann auch darauf malen, jedoch funktioniert die ermittlung mit GetWindowThreadProcessId(FindAWindow('Programmsize ', ''), @PID); nicht . ich bekomme eine flasche id zurück.

wie kann ich die threadid meines Programms ermitteln?
  Mit Zitat antworten Zitat
Benutzerbild von gizzy
gizzy

Registriert seit: 3. Jun 2007
59 Beiträge
 
Delphi 2007 Enterprise
 
#5

Re: Zeichnen auf Fremdes Panel

  Alt 21. Feb 2008, 15:05
Wozu brauchst du die Prozess ID?
Ich kenne das nur zum Lesen oder schreiben innerhalb des speichers:

Delphi-Quellcode:
var
PID: Integer;
HandleWindow: Cardinal;
begin

HandleWindow := OpenProcess(PROCESS_VM_READ,False,PID);

{...}
Das Window Handle über deine FindAWindow Funktion sollte eigentlich reichen.
David
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#6

Re: Zeichnen auf Fremdes Panel

  Alt 21. Feb 2008, 15:14
Du musst natürlich das Handle des Panels ermitteln, das des Parent-Fensters reicht nicht. Du musst also erst mit MSDN-Library durchsuchenFindWindow das Handle des Hauptfensters ermitteln und dann mit MSDN-Library durchsuchenFindWindowEx das Handle des Child-Fensters, hier des Panels.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:11 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz