Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1556 connectés 

  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  [Delphi] Defilement auto le l'ascenseur vertical d'1 StrinGrid

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[Delphi] Defilement auto le l'ascenseur vertical d'1 StrinGrid

n°148107
Alysum
Dark side of the light
Posté le 30-05-2002 à 18:38:04  profilanswer
 

J'ai un StrinGrid a 2 dimensions, et au fur et a mesure qu'il se remplis, j'aimerais que l'ascenseur vertical puisse bouger auto afin de toujours pouvoir voir les elements de la derniere ligne remplie (75 lignes le StrinGrid).  
 
C possible ?
 
 :hello:

mood
Publicité
Posté le 30-05-2002 à 18:38:04  profilanswer
 

n°148120
[SDF]Poire
Vive Grumly
Posté le 30-05-2002 à 18:51:40  profilanswer
 

API ou message windows... G pas  le temps de te préciser + là je dois partir mais en rentrant je te met ça
 :hello:


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
n°148276
[SDF]Poire
Vive Grumly
Posté le 30-05-2002 à 23:21:08  profilanswer
 

Oups t'avais oublié  :D  
G répondu là :
http://forum.hardware.fr/forum2.php3?post=11082&cat=10
 
qq modifs 1 peu de  [:f1key] et ça devrait être bon
 :hello:


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
n°148296
Alysum
Dark side of the light
Posté le 31-05-2002 à 00:36:03  profilanswer
 

merci mais g rien compris  :heink:  
 
'fin c ptet la fatigue :D

n°148954
[SDF]Poire
Vive Grumly
Posté le 01-06-2002 à 11:14:43  profilanswer
 

procedure Scroll(Sender: TObject);
var
 ScrollMessage:TWMVScroll;
begin
 ScrollMessage.Msg:=WM_VScroll;
 ScrollMessage.ScrollCode:=sb_Bottom;
 Sender.Dispatch(ScrollMessage);
end;

 
Cette procedure fait défiller le control en tout en bas.
Aprés tu fais un truc du genre :
Scroll(MyStrinGrid);
Et voilou (Enfin G pas testé pour un StrinGrid mais je pense que ça doit marcher)
 :hello:


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
n°148955
[SDF]Poire
Vive Grumly
Posté le 01-06-2002 à 11:21:12  profilanswer
 

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids;
 
procedure Scroll(Sender: TObject);  
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure Scroll(Sender: TObject);
var
  ScrollMessage:TWMVScroll;
begin
  ScrollMessage.Msg:=WM_VScroll;
  ScrollMessage.ScrollCode:=sb_Bottom;
  Sender.Dispatch(ScrollMessage);
end;  
 
 
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Scroll(StringGrid1);
end;
 
end.

 
ça marche nickel :)
 :hello:


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
n°148999
Alysum
Dark side of the light
Posté le 01-06-2002 à 12:55:56  profilanswer
 

je veux pas le faire defiller jusqu'en bas du StrinGrid.
J'ai 75 lignes, et chaque pression sur un bouton, une ligne se remplis, et je veux que cette derniere ligne soit visible.
 
 :hello:

n°149011
[SDF]Poire
Vive Grumly
Posté le 01-06-2002 à 13:14:27  profilanswer
 

Beh ta ligne se rajoute en bas non ?
Sinon tu remplaces ScrollMessage.ScrollCode:=sb_Bottom; par ScrollMessage.ScrollCode:=sb_LineDown; pour scroller que d'une ligne.
Pour + de renseignement (autres scroll possibles)  [:f1key] sur WM_VScroll
 :hello:


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  [Delphi] Defilement auto le l'ascenseur vertical d'1 StrinGrid

 

Sujets relatifs
[DELPHI] + base de données[Delphi] générateur de noms de fichier unique
question delphi facile pour les pros[Delphi] Comment créer un chronomètre
[Delphi, Pascal] une méthode de classe n'a pas d'adresse ????![Urgent] [Delphi] Imbriquer des relations Maitre/Détail
[Delphi 4 et InterBase 4.2] Utilisateurs connectés ?[Delphi] Charger un TImage à partir d'une image d'un TimageList
[delphi] Urgent : différences entre les Delphi 4, 5 et 6insérer des gifs animés dans une fiche Delphi
Plus de sujets relatifs à : [Delphi] Defilement auto le l'ascenseur vertical d'1 StrinGrid


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR