si tu désires produire un code qui soit compatible entre les différentes versions de Delphi
cette petite astuce a son importance ... puisque "alCustom" n'est pas disponible dans toutes les versions ;-)
devilmaycry41281
Messages postés4Date d'inscriptionmardi 9 novembre 2004StatutMembreDernière intervention26 août 2007 5 sept. 2007 à 19:04
un source qui ne sert a rien
il ya la propriété du form "align" il suffit de la metre sur "alCustom"
cs_grandvizir
Messages postés1106Date d'inscriptionsamedi 8 novembre 2003StatutMembreDernière intervention 3 septembre 200622 21 mai 2005 à 10:02
=======1)
Pour figer très largement une fenêtre, il y a autre chose de sympa: il suffit d'interdire WM_SYSCOMMAND avec seulement 4 lignes de code. Voici un petit code sympa :
unit Unit1;
interface
uses Windows, Messages, SysUtils, Classes, Controls, Forms;
type
TForm1 = class(TForm)
private
procedure FixedForm(var Msg:TWMSysCommand); message WM_SYSCOMMAND;
end;
var Form1 : TForm1;
implementation
{$R *.DFM}
procedure TForm1.FixedForm(var Msg:TWMSysCommand);
begin
Msg.Result:=-1;
end;
end.
=======2)
Conseillons le code N°28941 pour épurer les menus inutiles du popup.
=======3)
Je ne sais pas d'où tu nous sort tes constantes, mais moi dans Windows.pas, j'ai ce qui suit. Et ce n'est pas pareil !
5 sept. 2007 à 21:17
ce source n'est pas inutile bien au contraire
si tu désires produire un code qui soit compatible entre les différentes versions de Delphi
cette petite astuce a son importance ... puisque "alCustom" n'est pas disponible dans toutes les versions ;-)
5 sept. 2007 à 19:04
il ya la propriété du form "align" il suffit de la metre sur "alCustom"
21 mai 2005 à 10:02
Pour figer très largement une fenêtre, il y a autre chose de sympa: il suffit d'interdire WM_SYSCOMMAND avec seulement 4 lignes de code. Voici un petit code sympa :
unit Unit1;
interface
uses Windows, Messages, SysUtils, Classes, Controls, Forms;
type
TForm1 = class(TForm)
private
procedure FixedForm(var Msg:TWMSysCommand); message WM_SYSCOMMAND;
end;
var Form1 : TForm1;
implementation
{$R *.DFM}
procedure TForm1.FixedForm(var Msg:TWMSysCommand);
begin
Msg.Result:=-1;
end;
end.
=======2)
Conseillons le code N°28941 pour épurer les menus inutiles du popup.
=======3)
Je ne sais pas d'où tu nous sort tes constantes, mais moi dans Windows.pas, j'ai ce qui suit. Et ce n'est pas pareil !
const
MF_BYPOSITION = $400;
SC_SIZE = 61440;
SC_MOVE = 61456;
SC_MINIMIZE = 61472;
SC_MAXIMIZE = 61488;
SC_NEXTWINDOW = 61504;
SC_PREVWINDOW = 61520;
SC_CLOSE = 61536;
SC_VSCROLL = 61552;
SC_HSCROLL = 61568;
SC_MOUSEMENU = 61584;
SC_KEYMENU = 61696;
SC_ARRANGE = 61712;
SC_RESTORE = 61728;
SC_TASKLIST = 61744;
SC_SCREENSAVE = 61760;
SC_HOTKEY = 61776;
SC_DEFAULT = 61792;
SC_MONITORPOWER = 61808;
SC_CONTEXTHELP = 61824;
SC_SEPARATOR = 61455;
SC_ICON = SC_MINIMIZE;
SC_ZOOM = SC_MAXIMIZE;