Einzelnen Beitrag anzeigen

Onkelrossie

Registriert seit: 7. Aug 2006
43 Beiträge
 
Delphi 7 Architect
 
#4

Re: FlashWindow(Ex) für interakt. Hilfe mit anderer Visual.

  Alt 22. Sep 2006, 18:09
Hi, DGL-luke,
Danke für den Tipp der soweit das Zeichnen betrifft wunderbar Funktioniert hatt. Aber wie bekomme ich die größe des Fensters bzw. der einzelnen Memos usw. worauf ich zeichnen will raus? Ich möchte es ja wie gesagt umrahmen und da man das Fenster bzw. Memos usw. beliebig vergrößern / verkleinern kann muss ich ja die gegenwärtige größe irgendwie raus bekommen. Das Programm worauf ich zeichnen will ist aber ein anderes als das, welches zeichnen soll (Client / Server). Daher muss ich doch irgendwie über das Handle an die größen Informationen kommen, aber wie? WinSpy macht es ja auch irgendwie.
Es gibt da doch bestimmt eine Funktion womit man die Fensterkoordinaten bzw. Größen des aktuellen Handles also Fensters herraus bekommt oder?

Vielen Dank schonmal im Vorraus.

[Edit 1]
Habe eben mal in der Delphi Hilfe geschaut und dir Funktion "GetWindowRect" gefunden. Irgendwie Funktioniert das aber bei mir nicht so richtg.
Hier mal der Source:

Delphi-Quellcode:
procedure TfrmMain.Button1Click(Sender: TObject);
var
  W: HWND;
  D: HDC;
  C: TCanvas;
  R: Trect;
begin
  W := FindWindow('TfrmMain', 'Server');
  W := FindWindowEx(W, 0, 'TMemo', nil);
  D := GetWindowDC(W);
  GetWindowRect(W, R);
  C := TCanvas.Create;
  C.Handle := D;
  BeginPath(C.Handle);
  C.Pen.Style := psSolid;
  C.Pen.Mode := pmMask;
  C.Pen.Color := clRed;
  C.Pen.Width := 3;
  SetBkMode(C.Handle,TRANSPARENT);
  EndPath(C.Handle);
  C.Rectangle(R);
[/Edit 1]

HG
Onkelrossie
  Mit Zitat antworten Zitat