GetSystemMetrics - Rahmen eines Fensters

Martok · Verfasst: Mo 26.03.12 19:51

Wichtige Lektion für Programmierer: RTFM - Read The F*ing Manual.

Wenn man mal den MSDN-Artikel zu GetSystemMetrics liest, findet man noch ein paar Abstände, die man addieren muss. Namentlich die DialogFrames, also der Teil "ganz außen", der den 3D-Eindruck erzeugt. Und die auf jeder Seite.

Damit das hier nicht nur Copy&Paste wird, Aufgabe für dich: selber finden und einbauen

_________________
"The phoenix's price isn't inevitable. It's not part of some deep balance built into the universe. It's just the parts of the game where you haven't figured out yet how to cheat."

Premaider · Beiträge: 51

Habe das ganze jetzt nochmal neu geschrieben, doch dann kommt immer ein Fehler.

Das Neue:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var
 HWND:THandle;
 Breite:Integer;
 Hoehe:Integer;
 BorderWidth:Integer;
 BorderHeight:Integer;
begin
  BorderHeight:= 2 * GetSystemMetrics(SM_CXBORDER);
  BorderWidth:= GetSystemMetrics(SM_CYBORDER) + GetSystemMetrics(SM_CYCAPTION);
  Hoehe:= BorderHeight + SpinEdit1.Value;
  Breite:= BorderWidth + SpinEdit2.Value;
  HWND := FindWindow(nil, PChar(Edit1.Text));
  SetWindowPos(HWND,HWND_TOPMOST,0,0,Breite,Hoehe,SWP_NOMOVE);
end;

Der Fehler:

markieren

Delphi-Quelltext

1:	[Fataler Fehler] Ausgabedatei 'C:\Users\Daniel\Desktop\Delphi Projekte\HelpTool\Project1.exe' kann nicht erstellt werden

Was ist da los ?

jaenicke · Verfasst: Mo 26.03.12 21:28

Wahrscheinlich läuft die Exe noch? :gruebel:

Schau mal im Taskmanager.

Premaider · Beiträge: 51

Es läuft auf jeden Fall nicht mehr. Im Taskmanager seh ich nichts

jaenicke · Verfasst: Mo 26.03.12 21:44

Hast du den PC schon einmal neu gestartet?

Premaider · Beiträge: 51

Werd ich. Wenn ich morgen um 5 von der Schule da bin

wäre schön wenn bis dahin eine Lösung für das andere Problem gefunden wäre

Premaider · Beiträge: 51

Da ich gerade eine Freistunde habe, habe ich es nochmal neu geschrieben. Doch es bleibt wie es war. Er rechnet die Ränder nicht mit dazu

jaenicke · Verfasst: Di 27.03.12 11:37

Naja, wie sieht denn dein Quelltext aus?

Premaider · Beiträge: 51

So

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
 HWND:THandle;
 Width:Integer;
 Height:Integer;
begin
  Width:= 1280 + 2 * GetSystemMetrics(SM_CXBORDER);
  Height:= 720 + GetSystemMetrics(SM_CYBORDER) + GetSystemMetrics(SM_CYCAPTION);
  HWND := FindWindow(nil, PChar(Edit1.Text));
  SetWindowPos(HWND,HWND_TOPMOST,0,0,Width,Height,SWP_NOMOVE);
end;

Und danke das du mir so konstant hilfst

jaenicke · Verfasst: Di 27.03.12 13:36

Womit wir wieder am Anfang dieser Seite der Diskussion angekommen wären...

Martok hat folgendes geschrieben :

Wichtige Lektion für Programmierer: RTFM - Read The F*ing Manual.

Wenn man mal den MSDN-Artikel zu GetSystemMetrics liest, findet man noch ein paar Abstände, die man addieren muss. Namentlich die DialogFrames, also der Teil "ganz außen", der den 3D-Eindruck erzeugt. Und die auf jeder Seite.

Premaider · Beiträge: 51

Also ist der Aero Look von Win7 3D ?

jaenicke · Verfasst: Di 27.03.12 14:00

Ist es, ja, und vor allem handelt es sich um ein Fenster, das in der Größe verändert werden kann, [zaunpfahl=Baumstamm]also sizeable ist[/zaunpfahl].

Premaider · Beiträge: 51

Aber was ist wenn mein Programm jetzt auf einem OS ohne Aero ausgeführt wird wie WinXP dann geht das doch nicht mehr ?
€: Sieht jetzt so aus und geht auch nicht

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
var
 HWND:THandle;
 Width:Integer;
 Height:Integer;
begin
  Width:= 1280 + 2 * GetSystemMetrics(SM_CXEDGE);
  Height:= 720 + 2 * GetSystemMetrics(SM_CYEDGE);
  HWND := FindWindow(nil, PChar(Edit1.Text));
  SetWindowPos(HWND,HWND_TOPMOST,0,0,Width,Height,SWP_NOMOVE);
end;

Premaider · Beiträge: 51

Hat einer eine Idee warum das nicht funktioniert ?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme