www.onesofts.com : Logiciels gratuits, sources delphi, icones, sons midi, Gagner de l'argent, Jeux

Modifier le Caption d'une form en utilisant le TButton
Modifier le Caption d'une form, lorsque nous écrivons dans le TEdit

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ShellApi, ExtDlgs, StdCtrls, ExtCtrls;

type
  TPsyckoHia = class(TForm)
    LMySite: TLabel;
    LName: TLabel;
    PanelCaption: TPanel;
    EditChange: TEdit;
    ButtonModifier: TButton;
    EditButton: TEdit;
    procedure LMySiteClick(Sender: TObject);
    procedure ButtonModifierClick(Sender: TObject);
    procedure EditChangeChange(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  PsyckoHia: TPsyckoHia;

implementation

{$R *.dfm}

////////////////////////////////////////////////////////////////////////////////////
procedure TPsyckoHia.ButtonModifierClick(Sender: TObject);
begin
PsyckoHia.Caption := EditButton.Text;
end;

procedure TPsyckoHia.EditChangeChange(Sender: TObject);
begin
PsyckoHia.Caption := EditChange.Text;
end;
////////////////////////////////////////////////////////////////////////////////////

procedure TPsyckoHia.LMySiteClick(Sender: TObject);
begin
 ShellExecute(0,'Open','http://www.OneSofts.com','null','null',SW_NORMAL);
end;
end.

Modifier l'arrière plan d'une form en utilisant le TButton
Modifier l'arrière plan d'une form en utilisant le TColorBox
Modifier l'arrière plan d'une form en utilisant le TColorDialog

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ShellApi, ExtDlgs, StdCtrls, ExtCtrls;

type
  TPsyckoHia = class(TForm)
    LMySite: TLabel;
    LName: TLabel;
    PanelColor: TPanel;
    ButtonColor: TButton;
    ColorDialog1: TColorDialog;
    ColorBox: TColorBox;
    ImageColor: TImage;
    procedure LMySiteClick(Sender: TObject);
    procedure ButtonColorClick(Sender: TObject);
    procedure ColorBoxChange(Sender: TObject);
    procedure ImageColorClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  PsyckoHia: TPsyckoHia;

implementation

{$R *.dfm}

procedure TPsyckoHia.ButtonColorClick(Sender: TObject);
begin
PsyckoHia.Color := clGreen;
end;

procedure TPsyckoHia.ColorBoxChange(Sender: TObject);
begin
PsyckoHia.Color := ColorBox.Selected;
end;

procedure TPsyckoHia.ImageColorClick(Sender: TObject);
begin
   If ColorDialog1.Execute Then PsyckoHia.Color := ColorDialog1.Color;
end;

/////////////////////////////////////////////////////////////////////////
procedure TPsyckoHia.LMySiteClick(Sender: TObject);
begin
 ShellExecute(0,'Open','http://www.OneSofts.com','null','null',SW_NORMAL);
end;

end.

Cursor : Curseur qui sera affiché lorsque le pointeur de votre souris passera sur la Form.

Changer de curseur en utilisant le TButton
Changer de curseur en utilisant le TComboBox : StringToCursor

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ShellApi, ExtDlgs, StdCtrls, ExtCtrls;

type
  TPsyckoHia = class(TForm)
    LMySite: TLabel;
    LName: TLabel;
    PanelCursor: TPanel;
    ButtonCursor: TButton;
    ComboBoxCursor: TComboBox;
    procedure LMySiteClick(Sender: TObject);
    procedure ButtonCursorClick(Sender: TObject);
    procedure ComboBoxCursorChange(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  PsyckoHia: TPsyckoHia;

implementation

{$R *.dfm}
////////////////////////////////////////////////////////////////////////////////////
procedure TPsyckoHia.ButtonCursorClick(Sender: TObject);
begin
PsyckoHia.Cursor := crHelp;
end;

procedure TPsyckoHia.ComboBoxCursorChange(Sender: TObject);
begin
PsyckoHia.Cursor := StringToCursor(ComboBoxCursor.Items[ComboBoxCursor.ItemIndex]);
end;
////////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////////
procedure TPsyckoHia.LMySiteClick(Sender: TObject);
begin
 ShellExecute(0,'Open','http://www.OneSofts.com','null','null',SW_NORMAL);
end;

end.

Height : Hauteur de votre Form en pixels.
Width : Largeur de votre Form en pixels.

Modifier les dimensions d'une Form

{Exemple pour Height & Width}

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ShellApi, ExtDlgs, StdCtrls, ExtCtrls;

type
  TPsyckoHia = class(TForm)
    LMySite: TLabel;
    LName: TLabel;
    HW: TPanel;
    EditH: TEdit;
    EditW: TEdit;
    LabelHp: TLabel;
    LabelHm: TLabel;
    LabelWm: TLabel;
    LabelWp: TLabel;
    procedure LMySiteClick(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure EditHChange(Sender: TObject);
    procedure EditWChange(Sender: TObject);
    procedure LabelHmClick(Sender: TObject);
    procedure LabelHpClick(Sender: TObject);
    procedure LabelWmClick(Sender: TObject);
    procedure LabelWpClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  PsyckoHia: TPsyckoHia;

implementation

{$R *.dfm}
//////////////////////////////////////////////////////////////////////////
procedure TPsyckoHia.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
EditH.Text := IntToStr(Height);
EditW.Text := IntToStr(Width);
end;
//////////////////////////////////////////////////////////////////////////
procedure TPsyckoHia.EditHChange(Sender: TObject);
begin
Height := StrToInt(EditH.Text);
end;
//////////////////////////////////////////////////////////////////////////
procedure TPsyckoHia.EditWChange(Sender: TObject);
begin
Width := StrToInt(EditW.Text);
end;
//////////////////////////////////////////////////////////////////////////
procedure TPsyckoHia.LabelHmClick(Sender: TObject);
begin
EditH.Text := IntToStr(Height - 10);
end;
//////////////////////////////////////////////////////////////////////////
procedure TPsyckoHia.LabelHpClick(Sender: TObject);
begin
EditH.Text := IntToStr(Height + 10);
end;
//////////////////////////////////////////////////////////////////////////
procedure TPsyckoHia.LabelWmClick(Sender: TObject);
begin
EditW.Text := IntToStr(Width - 10);
end;
//////////////////////////////////////////////////////////////////////////
procedure TPsyckoHia.LabelWpClick(Sender: TObject);
begin
EditW.Text := IntToStr(Width + 10);
end;
//////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////
procedure TPsyckoHia.LMySiteClick(Sender: TObject);
begin
 ShellExecute(0,'Open','http://www.OneSofts.com','null','null',SW_NORMAL);
end;
//////////////////////////////////////////////////////////////////////////
end.

WindowState : Permet de définir si la form doit apparaittre reduite, de taille maximale ou normale à l'écran.

wsMaximized : La form est de taille maximale.
wsMinimized : La form est de réduite.
wsNormal : La form est de taille normale.

Modifier l'état de la Form en utilisant le TButton
Modifier l'état de la Form en utilisant le TComboBox

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ShellApi, ExtDlgs, StdCtrls, ExtCtrls;

type
  TPsyckoHia = class(TForm)
    LMySite: TLabel;
    LName: TLabel;
    PanelWs: TPanel;
    ButtonMaximize: TButton;
    ComboBoxWs: TComboBox;
    procedure LMySiteClick(Sender: TObject);
    procedure ButtonMaximizeClick(Sender: TObject);
    procedure ComboBoxWsChange(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  PsyckoHia: TPsyckoHia;

implementation

{$R *.dfm}

//////////////////////////////////////////////////////////////////////////
procedure TPsyckoHia.ButtonMaximizeClick(Sender: TObject);
begin
PsyckoHia.WindowState := wsMaximized;
end;
//////////////////////////////////////////////////////////////////////////
procedure TPsyckoHia.ComboBoxWsChange(Sender: TObject);
begin
  case ComboBoxWs.ItemIndex of
  0 : PsyckoHia.WindowState := wsMaximized;
  1 : PsyckoHia.WindowState := wsMinimized;
  2 : PsyckoHia.WindowState := wsNormal;
  end;
end;
//////////////////////////////////////////////////////////////////////////

BorderStyle : Permet de définir l'aspect de votre Form.

bsNone : Pas de bordure visible. (Non redimensionnable).
bsSingle : Bordure à une seule ligne. (Non redimensionnable).
bsDialog : Bordure de boîte de dialogue standard. (Non redimensionnable).
bsSizeable : Bordure standard redimensionnable.
bsToolWindow : Identique à bsSingle avec une petite barre de titre.
bsSizeToolWin : Identique à bsSizeable avec une petite barre de titre .

Définir l'aspect de la Form en utilisant le TButton
Définir l'aspect de la Form en utilisant le TComboBox

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ShellApi, ExtDlgs, StdCtrls, ExtCtrls;

type
  TPsyckoHia = class(TForm)
    LMySite: TLabel;
    LName: TLabel;
    PanelBorderStyle: TPanel;
    ComboBoxBorderStyle: TComboBox;
    ButtonBsNone: TButton;
    procedure LMySiteClick(Sender: TObject);
    procedure ComboBoxBorderStyleChange(Sender: TObject);
    procedure ButtonBsNoneClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  PsyckoHia: TPsyckoHia;

implementation

{$R *.dfm}

//////////////////////////////////////////////////////////////////////////
procedure TPsyckoHia.ButtonBsNoneClick(Sender: TObject);
begin
PsyckoHia.BorderStyle := bsNone;
end;
//////////////////////////////////////////////////////////////////////////
procedure TPsyckoHia.ComboBoxBorderStyleChange(Sender: TObject);
begin
  Case ComboBoxBorderStyle.ItemIndex Of
  0: PsyckoHia.BorderStyle := bsNone;
  1: PsyckoHia.BorderStyle := bsSingle;
  2: PsyckoHia.BorderStyle := bsDialog;
  3: PsyckoHia.BorderStyle := bsSizeable;
  4: PsyckoHia.BorderStyle := bsToolWindow;
  5: PsyckoHia.BorderStyle := bsSizeToolWin;
  End;
end;
//////////////////////////////////////////////////////////////////////////

procedure TPsyckoHia.LMySiteClick(Sender: TObject);
begin
 ShellExecute(0,'Open','http://www.OneSofts.com','null','null',SW_NORMAL);
end;

end.

BorderIcons : Cette propriété permet de définir les icones dans la barre de titre.

biSystemMenu : La fiche a un menu Contrôle.
biMinimize : La fiche possede un bouton Réduire.
biMinimize : La fiche possede d'un bouton Agrandir.
biHelp : Point d'interrogation.

Définir l'aspect de la Form en utilisant le TButton
Définir l'aspect de la Form en utilisant le TRadioGroup

{Exemple pour BorderIcons}

///////////////////////////////////////////////////////////////////////////////
// Dans Cet Exemple Nous avons mis les 4 Icones de la Form à True par défaut,//
// ce qui permet de faire apparaittre automatiquement le BiHelp lorsque nous //
// Désactivons biMaximize	& biMinimize                                       //
///////////////////////////////////////////////////////////////////////////////                         
                         
unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ShellApi, ExtDlgs, StdCtrls, ExtCtrls;

type
  TPsyckoHia = class(TForm)
    LMySite: TLabel;
    LName: TLabel;
    PanelBorderIcons: TPanel;
    RadioGroupBorderIcons: TRadioGroup;
    ButtonNoHelp: TButton;
    ButtonHelp: TButton;
    procedure LMySiteClick(Sender: TObject);
    procedure ButtonNoHelpClick(Sender: TObject);
    procedure RadioGroupBorderIconsClick(Sender: TObject);
    procedure ButtonHelpClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  PsyckoHia: TPsyckoHia;

implementation

{$R *.dfm}

procedure TPsyckoHia.ButtonHelpClick(Sender: TObject);
begin
  RadioGroupBorderIcons.Visible := True;
  BorderIcons := BorderIcons + [biSystemMenu];
  ButtonNoHelp.Visible := True;
  ButtonHelp.Visible := False;
end;

procedure TPsyckoHia.ButtonNoHelpClick(Sender: TObject);
begin
  RadioGroupBorderIcons.Visible := False;
  BorderIcons := BorderIcons - [biSystemMenu];
  ButtonNoHelp.Visible := False;
  ButtonHelp.Visible := True;
end;

procedure TPsyckoHia.RadioGroupBorderIconsClick(Sender: TObject);
begin
  Case RadioGroupBorderIcons.ItemIndex Of
  0 : BorderIcons := BorderIcons + [biMaximize] + [biMinimize];
  1 : BorderIcons := BorderIcons - [biMaximize] - [biMinimize];
  end;
end;

//////////////////////////////////////////////////////////////////////////////////////
procedure TPsyckoHia.LMySiteClick(Sender: TObject);
begin
 ShellExecute(0,'Open','http://www.OneSofts.com','null','null',SW_NORMAL);
end;
end.

Visible : Cette propriété permet de rendre la Form visible ou invisible.

Rendre la Form invisible pendant quelques seconde en utilisant le TButton + le TTimer

//////////////////////////////////////////////////// //////////////////////////////////////////////////// //////////////////www.OneSofts.com////////////////// ////////////// PsyckoHia@ifrance.com /////////////// //////////////////////////////////////////////////// ///////////////psyckohia@onesofts.com/////////////// ////////////////////15/11/2007////////////////////// //////////////////////////////////////////////////// unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,ShellApi, ExtDlgs, StdCtrls, ExtCtrls; type TPsyckoHia = class(TForm) LMySite: TLabel; LName: TLabel; PanelVisible: TPanel; Timer1: TTimer; ButtonVisible: TButton; procedure LMySiteClick(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure ButtonVisibleClick(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var PsyckoHia: TPsyckoHia; implementation {$R *.dfm} ////////////////////////////////////////////////////////////////////////// procedure TPsyckoHia.Timer1Timer(Sender: TObject); begin If Timer1.Enabled = False Then Begin Timer1.Enabled := True; PsyckoHia.Visible := False; end else begin Timer1.Enabled := False; PsyckoHia.Visible := True; end; end; ////////////////////////////////////////////////////////////////////////// procedure TPsyckoHia.ButtonVisibleClick(Sender: TObject); begin Timer1Timer(Sender); end; ////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////// procedure TPsyckoHia.LMySiteClick(Sender: TObject); begin ShellExecute(0,'Open','http://www.OneSofts.com','null','null',SW_NORMAL); end; ////////////////////////////////////////////////////////////////////////// end.