Recherche:

Merci pour cette réponse claire!
:king:

et comment éviter ça ?

Hello,
Essais ceomme ça :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in [#8,#13, '0'..'9','a'..'z']) then
Key := #0;
end;
end;
;)

Hello,
Un label pour le texte et pour les traits : et 2 composants Bevel de chaque coté, avec la propriété Height:=2, ou même 1 seul Bevel avec le Label dessus , mais il faut le positionner au...

Hello,
C'est dans la FAQ.:faq:
8-)

Hello,
Déjà pour le ListBox transparent .
;)

Hello,
Une piste (?) :
http://www.developpez.net/forums/showthread.php?t=199566

Hello,
Ah oui, bien sympa !
J'avais trouvé aussi des trucs intéressants chez TMS software, la pluspart des compos sont gratuits pour une utilisation non commerciale.
;)

Bonjour à tous,

Je souhaite envoyer un mail avec une Pièce Jointe depuis mon application avec le client mail par défaut (pas seulement OutLock).

J'utilise une fonction MapiSendMail qui...

Une piste (?):
http://www.delphiflash.com/
http://delphi.about.com/od/graphics/l/aa040103a.htm

Et une petite fonction pour trouver le répretoire temporaire de windows :


//fonction trouver le répertoire temporaire de Windows
function GetTempDir: string;
var
Buffer:...

C'est bon : il faut écrire :

constructor create(w, h: integer); reintroduce;
;)

Le code est parfaitement fonctionnel , mais lors de la compilation, j'obtiens l'erreur :
http://img120.imageshack.us/img120/8181/avertwd9.png

L'erreur renvoie à la ligne :

constructor...

Hello,
Essai avec ça :

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #32 then form25.show;
end;
IL faut mettre la propriété KeyPreveiw de la form principale...

Merci pour ta réponse, j'ai résolu le Pb ainsi :


ABitmap.Canvas.Draw(CursorInfo.ptScreenPos.X - abs(IconInfo.xHotspot),CursorInfo.ptScreenPos.Y - abs(IconInfo.yHotspot), MyCursor);

Joyeux Noël à toutes et a tous ! http://planetsmilies.net/xmas-smiley-4606.gif

La suite de composants Synedit est très bien pour ça. ;)

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (evenement=true) and (not Application.Active) then begin
FlashWindow(Handle, true);
FlashWindow(Application.Handle, true);
...

Bonjour à tous,

J'ai testé ce code qui permet d'insérer le curseur dans un screenshot.

Lors de la compilation, j'ai le message d'avertissement suivant (non bloquant) :

Combinaison de...

Ah oui, bonne idée !

Sinon j'ai trouvé plus simple :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not Application.Active then begin
FlashWindow(Handle, true);
...

Lancer une application externe et minimiser son application dans le barre de tâche : le clignotement permet de voir que l'appli et toujours là !;)

J' ai trouvé ça :


procedure...

C'est dans la FAQ , non ?;)

Hello,
Une petite recherche sur site t'aurais amené ICI.
;)

Bon ça vaut ce que ça vaut, mais ça fonctionne :

newPng := TPNGObject.Create;
image1.Picture.bitmap.pixelformat := pf8bit;
with newPng do begin
...

Bonjour à tous,

J'utilise l'unité PNGimage de Gustavo Daud pour enregistrer des images au format PNG.
Je souhaite enregistrer un PNG palleté (PNG en couleurs indexées, par opposition a PNG en...