cs_krzysiu
Messages postés22Date d'inscriptionmardi 13 juillet 2004StatutMembreDernière intervention 3 septembre 2011 11 nov. 2008 à 01:34
Bonjour à tous,
Pour commencer, bravo pour cette source, j'y ai appris plein de trucs...
Ensuite, j'ai une question, je cherche à faire un copié/collé du contenu d'un PaintBox, mais pour l'instant, je n’y arrive pas et je n'ai pas non plus trouvé avec l'ami Google.
Dois y avoir un truc que j'ai pas pigé.
Quelqu'un peut'-il éclairer ma lanterne . Merci
Caribensila
Messages postés2527Date d'inscriptionjeudi 15 janvier 2004StatutMembreDernière intervention16 octobre 201918 21 janv. 2005 à 20:54
lol
Ben ouais. On ne mesure jamais assez la portée culinaire des sources qu'on poste, comme ça, ingénument... ;)
cs_Kenavo
Messages postés702Date d'inscriptionvendredi 21 mars 2003StatutMembreDernière intervention 1 octobre 20095 21 janv. 2005 à 20:18
N'empêche ! T'imagines, tu copies l'image d'une patate, tu fais coller et paf : un plat de purée !
T'as plus qu'à cliquer dedans ! ;o))
cs_MAURICIO
Messages postés2106Date d'inscriptionmardi 10 décembre 2002StatutModérateurDernière intervention15 décembre 20145 21 janv. 2005 à 19:05
Quoi dire de + à part que c' est magnifique !
Je connaissait 70% de tout ça, mais la copie d' un bouton c' est absolument génial.
D' ailleurs , dans le onClick mettez la commande suivante
Left := Left + 10;
et ouvrez 2 instances ! Puis copier/coller le bouton d' une instance à une autre et tester le bouton.
Heuh, sinon j' ai comme une petite faim moi ...
Caribensila
Messages postés2527Date d'inscriptionjeudi 15 janvier 2004StatutMembreDernière intervention16 octobre 201918 21 janv. 2005 à 17:21
Kenavo>
Tu verras, ta purée n'en sera que meilleure et moins grumeleuse.
On va enfin pouvoir aller dîner chez Kenavo!
;)
cs_Kenavo
Messages postés702Date d'inscriptionvendredi 21 mars 2003StatutMembreDernière intervention 1 octobre 20095 21 janv. 2005 à 16:13
"J'ai encore écrasé mes données dans le presse-purée" (attribué à Antoine-Augustin PARMENTIER, 1737-1813, pharmacien des Armées, vulgarisateur de la pomme de terre, tentant de compter les patates consommées en France en 1785)
Promis, je ne confondrais plus presse-papier et presse-purée !
Ken@vo
jmp77
Messages postés1119Date d'inscriptionlundi 4 février 2002StatutMembreDernière intervention 4 octobre 20067 21 janv. 2005 à 12:43
C'est vrai que le presse papier est tellement commun que l'on n'y pense pas .
C'est une super source pour apprendre à mieux l'utiliser.
Merci Caribensila.
Pour moi ce sera un 10/10.
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 201332 20 janv. 2005 à 23:10
Bonsoir Caribensila.
Je vois que tu as perçu l'intérêt de l'utilisation des routines de mise en flux de composants (WriteComponentResFile et son symétrique ReadComponentResFile). C'est aussi sympa de rappeler les sources et leurs auteurs. ;o)
Dans la procédure :
procedure TForm2.Sbt_CollerCompoClick(Sender: TObject);
begin
if Clipboard.HasFormat(CF_COMPONENT)then Clipboard.GetComponent(self,Panel1);
end;
Le fait d'avoir le format CF_COMPONENT ne permet pas d'être sur à 100 % que le composant contenu dans le presse-papiers soit connu de ton application. Le contenu du presse-papiers peut très bien provenir d'une autre application.
Il serait préférable de prendre quelques précautions, comme :
procedure TForm2.Sbt_CollerCompoClick(Sender: TObject);
var
Conteneur: TComponent;
begin
if Clipboard.HasFormat(CF_COMPONENT) then
begin
Conteneur := Clipboard.GetComponent(nil, nil);
if Conteneur is TConteneur then
with TConteneur(Conteneur) do
begin
// Traitement du contenu...
end;
end;
end;
Il faut au moins en vérifier le type.
En tous cas, c'est un excellent travail qui fait le tour des usages courants du presse-papiers de Windows et même plus.
11 nov. 2008 à 01:34
Pour commencer, bravo pour cette source, j'y ai appris plein de trucs...
Ensuite, j'ai une question, je cherche à faire un copié/collé du contenu d'un PaintBox, mais pour l'instant, je n’y arrive pas et je n'ai pas non plus trouvé avec l'ami Google.
Dois y avoir un truc que j'ai pas pigé.
Quelqu'un peut'-il éclairer ma lanterne . Merci
21 janv. 2005 à 20:54
Ben ouais. On ne mesure jamais assez la portée culinaire des sources qu'on poste, comme ça, ingénument... ;)
21 janv. 2005 à 20:18
T'as plus qu'à cliquer dedans ! ;o))
21 janv. 2005 à 19:05
Je connaissait 70% de tout ça, mais la copie d' un bouton c' est absolument génial.
D' ailleurs , dans le onClick mettez la commande suivante
Left := Left + 10;
et ouvrez 2 instances ! Puis copier/coller le bouton d' une instance à une autre et tester le bouton.
Heuh, sinon j' ai comme une petite faim moi ...
21 janv. 2005 à 17:21
Tu verras, ta purée n'en sera que meilleure et moins grumeleuse.
On va enfin pouvoir aller dîner chez Kenavo!
;)
21 janv. 2005 à 16:13
Promis, je ne confondrais plus presse-papier et presse-purée !
Ken@vo
21 janv. 2005 à 12:43
C'est une super source pour apprendre à mieux l'utiliser.
Merci Caribensila.
Pour moi ce sera un 10/10.
20 janv. 2005 à 23:10
Je vois que tu as perçu l'intérêt de l'utilisation des routines de mise en flux de composants (WriteComponentResFile et son symétrique ReadComponentResFile). C'est aussi sympa de rappeler les sources et leurs auteurs. ;o)
Dans la procédure :
procedure TForm2.Sbt_CollerCompoClick(Sender: TObject);
begin
if Clipboard.HasFormat(CF_COMPONENT)then Clipboard.GetComponent(self,Panel1);
end;
Le fait d'avoir le format CF_COMPONENT ne permet pas d'être sur à 100 % que le composant contenu dans le presse-papiers soit connu de ton application. Le contenu du presse-papiers peut très bien provenir d'une autre application.
Il serait préférable de prendre quelques précautions, comme :
procedure TForm2.Sbt_CollerCompoClick(Sender: TObject);
var
Conteneur: TComponent;
begin
if Clipboard.HasFormat(CF_COMPONENT) then
begin
Conteneur := Clipboard.GetComponent(nil, nil);
if Conteneur is TConteneur then
with TConteneur(Conteneur) do
begin
// Traitement du contenu...
end;
end;
end;
Il faut au moins en vérifier le type.
En tous cas, c'est un excellent travail qui fait le tour des usages courants du presse-papiers de Windows et même plus.
Félicitations.