Faire bouger le titre de la form et celui de la barre des tâches

Soyez le premier à donner votre avis sur cette source.

Vue 4 276 fois - Téléchargée 425 fois

Description


Source / Exemple :


no comment..

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
814
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
30 juillet 2009
3
salut,

je te propose une version légèrement améliorée:


procedure TfrmExt.DoCaptionScrollStep;
//l'avantage d'une methode (public), c'est que un seul timer peut scroller toute tes captions de toutes tes forms.
var
TextToScroll, s: string;
i : integer;
begin

TextToScroll := DupeString(' ',5) + fCaptionText + DupeString(' ',5);

// inc(fCaptionScrollCount); // un scroll de deux char demande moins de ressource et produit un effet similaire.
inc(fCaptionScrollCount);
if fCaptionScrollCount > length(TextToScroll) then fCaptionScrollCount := 1;

s := Copy(TextToScroll,fCaptionScrollCount,fCaptionScrollLength);

// nb of comming char (<0 if end of string)
i := length(TextToScroll) - (fCaptionScrollCount + fCaptionScrollLength);
if i < 0 then
// add extra char from start of string
s := s + Copy(TextToScroll,1,-i);

Caption := s;
end;

procedure TfrmExt.FormCreate(Sender: TObject);
begin
fCaptionScrollLength := 30; //longeur visible. depend des options de windows
fCaptionScrollCount := 0;
fCaptionText := 'A very very long caption - And more !';
end;

procedure TfrmExt.Timer1Timer(Sender: TObject);
begin
DoCaptionScrollStep;
end;

A+

PS: le timer1.interval dépend du client. Donc cela devrait être un paramètre.
Messages postés
25
Date d'inscription
jeudi 18 juillet 2002
Statut
Membre
Dernière intervention
18 mai 2008

Vraimment Trop Rapide avec 100 Sur Timer :) Mais cool comme meme :)
Messages postés
20
Date d'inscription
mardi 4 juin 2002
Statut
Membre
Dernière intervention
2 octobre 2002

J'ai essayé aussi avec 100 , c'est impec !
Messages postés
209
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
13 décembre 2002

C cool mais comme fabiin, c trop rapide, avec un interval de 100 sur les timers c deja mieux sur ma becane. Ton source est super!
Messages postés
63
Date d'inscription
mercredi 23 janvier 2002
Statut
Membre
Dernière intervention
16 avril 2008

non pourtant je viens de verifier,et sur mon PC c'est tout a fait lisible.Ca doit dépendre des machines..
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.