Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   FreePascal (https://www.delphipraxis.net/74-freepascal/)
-   -   Form auf ganzen Bildschirm anpassen (https://www.delphipraxis.net/133982-form-auf-ganzen-bildschirm-anpassen.html)

khh 13. Mai 2009 10:10


Form auf ganzen Bildschirm anpassen
 
hallo zusammen,
mit
Delphi-Quellcode:

//-- Bildschirmgrösse nutzen
self.Width := screen.width;
self.height:= screen.height;
möchte ich ein Form auf dem kompletten Bildschirm anzeigen, egal welche Auflösung der Nutzer eingestellt hat.
Leider wird so der untere Teil durch die Taskleiste des BS überdeckt.

Gibts da ne andere Mögichkeit?

danke Gruss KH

BAMatze 13. Mai 2009 10:12

Re: Form auf ganzen Bildschirm anpassen
 
Align = alClient im Objektinspektor stellen, ist das vieleicht, was du brauchst?

khh 13. Mai 2009 10:30

Re: Form auf ganzen Bildschirm anpassen
 
Zitat:

Zitat von BAMatze
Align = alClient im Objektinspektor stellen, ist das vieleicht, was du brauchst?

werd ich ausprobieren, ich danke dir

khh 13. Mai 2009 10:36

Re: Form auf ganzen Bildschirm anpassen
 
Zitat:

Zitat von khh
Zitat:

Zitat von BAMatze
Align = alClient im Objektinspektor stellen, ist das vieleicht, was du brauchst?

werd ich ausprobieren, ich danke dir

hilft leider nix, die Taskleiste ist immer noch drüber :-(

markus5766h 13. Mai 2009 10:38

Re: Form auf ganzen Bildschirm anpassen
 
Hallo,
Taskbar-Parameter abfragen mit
Delphi-Quellcode:
function GetTaskbarHeight: integer;
var
  SysTray: Windows.HWND;
  Rect: TRect;
begin
  Result := -1;
  SysTray := FindWindow('Shell_TrayWnd', nil);
  If SysTray <> INVALID_HANDLE_VALUE then begin
    If GetWindowRect(SysTray, Rect) then begin
      Result := Screen.Height - Rect.Top;
    end;
  end;
end;

function GetTaskbarWidth: integer;
var
  SysTray: Windows.HWND;
  Rect: TRect;
begin
  Result := -1;
  SysTray := FindWindow('Shell_TrayWnd', nil);
  If SysTray <> INVALID_HANDLE_VALUE then begin
    If GetWindowRect(SysTray, Rect) then begin
      Result := Rect.Right - Rect.Left;
    end;
  end;
end;
dann die Fenstergröße angleichen,
so ist es auch egal, ob die Taskleiste unten, rechts oder sonstwo liegt.

khh 13. Mai 2009 10:41

Re: Form auf ganzen Bildschirm anpassen
 
Zitat:

Zitat von markus5766h
Hallo,
Taskbar-Parameter abfragen mit

dann die Fenstergröße angleichen,
so ist es auch egal, ob die Taskleiste unten, rechts oder sonstwo liegt.

danke dir probier ich aus,

Gruss KH

khh 13. Mai 2009 10:44

Re: Form auf ganzen Bildschirm anpassen
 
wo ist Windows.HWND definiert?
kennt lazarus so nicht :-(


EDIT : hat sich erledigt, in windows natürlich ,-)


Gruss KH

Sven M. 13. Mai 2009 11:04

Re: Form auf ganzen Bildschirm anpassen
 
Warum nicht einfach

Delphi-Quellcode:
Form1.WindowState:=wsMaximized;
?


Oder gibt's das in Lazarus nicht?

khh 13. Mai 2009 11:07

Re: Form auf ganzen Bildschirm anpassen
 
Zitat:

Zitat von Sven M.
Warum nicht einfach

Delphi-Quellcode:
Form1.WindowState:=wsMaximized;
?


Oder gibt's das in Lazarus nicht?

du bist spitze, sooo einfach ;-) :wall:

ich danke dir

DeddyH 13. Mai 2009 11:08

Re: Form auf ganzen Bildschirm anpassen
 
Bei mir funktionieren alle Vorschläge nur dann, wenn ich den BorderStyle auf bsNone setze, ansonsten bleibt die Taskleiste im Vordergrund.


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:14 Uhr.
Seite 1 von 2  1 2      

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