Form change de place avec changement de resolution [Résolu]
cocowz89
Messages postés lundi 28 novembre 2005Date d'inscription
25 février 2007
Dernière intervention
-
30 janv. 2007 à 20:39 - Dernière réponse : Cirec4217
Messages postés vendredi 23 juillet 2004Date d'inscription
3 avril 2018
Dernière intervention
- 6 févr. 2007 à 14:24
J'ai creer une form avec un boutton et dans la propriete de boutton j'ai mis sa
*var Rect: TRect;
begin FormStyle := fsStayOnTop;
Left:=Screen.Width-ClientWidth;
SystemParametersInfo(SPI_GETWORKAREA, 0, @Rect, 0);
Top := Screen.Height - (Screen.Height - Rect.Bottom)-100;
ClientHeight := 100; *
J'ai mis sa pour que quand je lance mon projet et j'appyer sur le boutton sa me colle ma form en bas a cote de la barre de tache..
Apres avoir lance ma form, je mis la resoulution 800 par 600 pixels....
Puis quand je remet la resoulution normal... sa me decale la form un peu vers le centre...
Ma question c'est, est ce que c'est possible que quand je chenge de resolution la barre prend sa place normal, c'est a dire bien colle au coin de l'ecran...
Ou il y a une autre methode plus simple...
Cirec4217
Messages postés vendredi 23 juillet 2004Date d'inscription
3 avril 2018
Dernière intervention - 5 févr. 2007 à 15:10
+3
Utile
Rt15, j'étais en contacte par MP avec Cocowz ... il devait m'envoyer son adresse EMail pour renvoyé la source complète
mais il ne la toujours pas fait.
par contre ta méthode est presque la bonne ... je dis presque parce que sur un système à deux écrans selon sur le quel est placé la forme elle risque de disparaitre avec ton code !
je poste donc le code ici et si toute fois tu n'y arrives pas tu me donnes ton Mail pour t'envoyé le source complet :
type TForm1 = class (TForm)
procedure FormCreate(Sender: TObject);
private { Déclarations privées }
procedure WMDisplayChange(var Message:TMessage); message WM_DISPLAYCHANGE;
Procedure ReplaceWindow;
public { Déclarations publiques } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin ReplaceWindow;
end;
procedure TForm1.ReplaceWindow;
begin With Screen.Monitors[Monitor.MonitorNum] Do Begin Self.Left : = Left + (Width - Self.Width);
Self.Top := Top + (Height - Self.Height);
End ;
end;
procedure TForm1.WMDisplayChange(var Message: TMessage);
begin Inherited;
ReplaceWindow;
end;
end.
@+
Cirec
<hr size ="2" />
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
Cirec4217
Messages postés vendredi 23 juillet 2004Date d'inscription
3 avril 2018
Dernière intervention -31 janv. 2007 à 14:29
0
Utile
remplace le par Screen.DesktopHeight et Screen.DesktopWidth
Mais si le programme est executé sur un système à deux écrans ça peut poser problème
dans ce cas on utilise :
Screen.Monitors[0].Width
et
Screen.Monitors[0].Height
Screen.MonitorCount détermine le nombre de moniteurs présents dans le système
cocowz89
Messages postés lundi 28 novembre 2005Date d'inscription
25 février 2007
Dernière intervention -31 janv. 2007 à 15:55
0
Utile
Bonjour Cirec,
J'ai teste les deux methodes que tu ma donné et quand je change de resolution et puis je la remet au resolution normal la form se decale comme meme ?
Sinon j'aimera bien de faire pour que sa marche pour les deux ecran...
f0xi4304
Messages postés samedi 16 octobre 2004Date d'inscription
9 mars 2018
Dernière intervention -31 janv. 2007 à 16:54
0
Utile
au temps pour moi :
procedure TForm1.FormCreate(Sender: TObject);
begin
Position := poDesigned;
Left := Monitor.WorkareaRect.Right - Width;
Top := Monitor.WorkareaRect.Bottom - Height;
end;
Cirec4217
Messages postés vendredi 23 juillet 2004Date d'inscription
3 avril 2018
Dernière intervention - 1 févr. 2007 à 14:30
0
Utile
pour intercepter le message : WM_DISPLAYCHANGE
il faut proceder comme ceci
type TForm1 = class (TForm)
.....
private procedure WMDisplayChange(var Message:TMessage); message WM_DISPLAYCHANGE;
.....
end;
........
procedure TForm1.WMDisplayChange(var Message: TMessage);
begin inherited;
// ici tu fais appel à ta procedure qui ajuste la position de la fenêtre
end;
cocowz89
Messages postés lundi 28 novembre 2005Date d'inscription
25 février 2007
Dernière intervention - 1 févr. 2007 à 19:43
0
Utile
Non, est fait je voulais demander pour sa
* // ici tu fais appel à ta procedure qui ajuste la position de la fenêtre*
Quelle procedure utiliser ? (mieux)
Je connaissais pas le mot clé Message... C'est vraiment honteusement pratique le Delphi.
Merci.
Pour ce qui est de la procédure... Bin c'est celle qui replace la Form,
autant factoriser. (Bon ça se dicute car on va se bouffer un appel pour
deux ligne...)
Quelque chose comme ça ?
procedure TForm1.FormCreate(Sender: TObject);
begin
AdaptPos(Sender);
end;
procedure TForm1.AdaptPos(Sender: TObject);
begin
Left :=
Screen.Monitors[0].Width
cocowz89
Messages postés lundi 28 novembre 2005Date d'inscription
25 février 2007
Dernière intervention - 3 févr. 2007 à 22:28
0
Utile
Bonsoir,
Je n'arrive pas a faire pour que la form ne change pas de place....
Pourriez vous me la faire et me l'envoyer car j'ai du mal a comprendre et j'arrive pas..
Merci
Cirec4217
Messages postés vendredi 23 juillet 2004Date d'inscription
3 avril 2018
Dernière intervention - 6 févr. 2007 à 01:40
0
Utile
Le projet à un peut évolué à la demande de Cocows (par MP)
et donc je me dis ... peut être que ça interresse encore d'autres personnes
{
Démonstration de repositionnement automatique
de la forme principale.
Auteur Cirec pour Cocows sur [www.Delphifr.com]
Propose un ancrage de la fenêtre dans l'un des quatre coins
de l'écran au choix
Fonctionne également sur un système à deux écrans :
La forme se replace automatiquement dans le "nouveau moniteur"
Quand Ancrer la fenêtre est coché la forme permet un déplacement
pour un changement d'écran mais si le déplacement s'effectu à
l'intérieur du même moniteur elle se replacera automatiquement
dans le coin préalablement sélectionné
}
{ Vu la nouvelle déclaration de ReplaceWindow (ajout de (Sender: TObject) )
l'appel se fait maintenant directement dans l'inspecteur d'objets
procedure Tfrm_Main.FormCreate(Sender: TObject);
begin
// Self représentant frm_Main sont Tag étant à zéro
// la fenêtre est initialisée en bas à gauche
ReplaceWindow (Self);
end;}
procedure Tfrm_Main.ReplaceWindow(Sender: TObject);
{ tous les composants ont une propriété nommée Tag
Comme elle n'est pas utilisée on va s'en servir pour stocker la position de la Forme
Les Tags des 4 TRadioButton sont déclarés comme suit
0 : = Bottom Right
1 := Bottom Left
2 := Top Right
3 := Top Left
et les évenements OnClick sont redirigés vers ReplaceWindow dans l'inspecteur d'objets}
begin
{ on mémorise la position dans le Tag de la Forme (pour les appels avec Self)
Sender est donc soit frm_Main ou un des TRadioButton}
Tag : = (Sender as TComponent).Tag;
With Screen.Monitors[Monitor.MonitorNum] Do Begin Case Tag of {et on change la position}
0 : Begin // Bottom Right Self.Left : = Left + (Width - Self.Width);
Self.Top := Top + (Height - Self.Height);
End ;
1 : Begin // Bottom Left
Self.Left : = Left;
Self.Top := Top + (Height - Self.Height);
End ;
2 : Begin // Top Right
Self.Left : = Left + (Width - Self.Width);
Self.Top := Top;
End ;
3 : Begin // Top Left
Self.Left : = Left;
Self.Top := Top;
End ;
End;
End;
end;
{ ici je ne passe pas l'inspecteur d'objet parce qu'il faudait dans ce cas aussi
mémoriser la position dans cbk_Anker.Tag alors qu'il l'est déjà dans fmr_Main.Tag}
procedure Tfrm_Main.ckb_AnkerClick(Sender: TObject);
begin ReplaceWindow(Self);
end;
{ réagit aux changements de résolutions}
procedure Tfrm_Main.WMDisplayChange(var Message: TMessage);
begin { Appel de la méthode héritée} Inherited;
{ et replacement de la fenêtre} ReplaceWindow(Self);
end;
{ réagit après déplacement de la forme} procedure Tfrm_Main.OnFormMoved(var Msg: TWMSysCommand);
begin { Appel de la méthode héritée} Inherited;
{ Si ancrer la fenêtre est coché ... } If ckb_Anker.Checked Then ReplaceWindow(Self);
end;
end.
//***********************************************************
Le DFM
//***********************************************************
object frm_Main: Tfrm_Main
Left = 0
Top = 0
Caption = 'D'#233'mo :Ancrer une fen'#234'tre '
ClientHeight = 184
ClientWidth = 301
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poDesigned
OnCreate = ReplaceWindow
PixelsPerInch = 96
TextHeight = 13
object GroupBox1: TGroupBox
Left = 2
Top = 0
Width = 297
Height = 153
Caption = 'Window Position'
TabOrder = 0
object rbt_BottomRight: TRadioButton
Left = 163
Top = 73
Width = 85
Height = 17
Caption = 'Bas Droite'
Checked = True
TabOrder = 0
TabStop = True
OnClick = ReplaceWindow
end
object rbt_BottomLeft: TRadioButton
Tag = 1
Left = 16
Top = 73
Width = 85
Height = 17
Caption = 'Bas Gauche'
TabOrder = 1
OnClick = ReplaceWindow
end
object rbt_TopRight: TRadioButton
Tag = 2
Left = 163
Top = 24
Width = 85
Height = 17
Caption = 'Haut Droite'
TabOrder = 2
OnClick = ReplaceWindow
end
object rbt_TopLeft: TRadioButton
Tag = 3
Left = 16
Top = 24
Width = 85
Height = 17
Caption = 'Haut Gauche'
TabOrder = 3
OnClick = ReplaceWindow
end
end
object ckb_Anker: TCheckBox
Left = 163
Top = 159
Width = 118
Height = 17
Caption = 'Ancrer la fen'#234'tre'
TabOrder = 1
OnClick = ckb_AnkerClick
end
end
