Voir le profil: papyvore - Forum du club des développeurs et IT Pro

Tab Content: Tout; papyvore; Amis; Images

Ancienne activité
Hier, 14h53

papyvore a répondu à la discussion Avec TScrollBox et chargement image obtenir index de l'image affichée afin de l'afficher fullscreen D6 dans Débuter

oups! le TImageEx viens d'une sous classe que je me suis crée TImageEx = class(TImage) public FilePath: string; end; ça permet...

Voir plus

9 réponses | 343 affichage(s)
Hier, 13h16

papyvore a répondu à la discussion Avec TScrollBox et chargement image obtenir index de l'image affichée afin de l'afficher fullscreen D6 dans Débuter

salut tu peut ajouter Image.Tag := ScrollBox1.ControlCount; et ShowMessage('Image N° ' + IntToStr(TImageEx(Sender).Tag)); te donne le N° de...

Voir plus

9 réponses | 343 affichage(s)
15/01/2026, 11h52

papyvore a répondu à la discussion Avec TScrollBox et chargement image obtenir index de l'image affichée afin de l'afficher fullscreen D6 dans Débuter

salut dans la création de tes images ,tu ajoute Image.Hint := ImagePath + '\' + SearchRec.Name; image.OnClick := ImageClick; tu crée procedure...

Voir plus

9 réponses | 343 affichage(s)
10/01/2026, 18h24

papyvore a répondu à la discussion Avec un TopenDialog, j'ouvre un dossier avec plusieurs photos D6 Win11 dans Débuter

pour lire tes données procedure TForm14.FormShow(Sender: TObject); var ini: Tinifile; begin ini := Tinifile.Create(ChangeFileExt(ParamStr(0),...

Voir plus

16 réponses | 1797 affichage(s)
10/01/2026, 16h43

papyvore a répondu à la discussion Avec un TopenDialog, j'ouvre un dossier avec plusieurs photos D6 Win11 dans Débuter

mémoriser le dossier je sais pas trop mais essais ça ,si mydirpath est <> de '' function BrowseForFolderCallBack(Wnd: HWND; uMsg: UINT; lParam,...

Voir plus

16 réponses | 1797 affichage(s)
10/01/2026, 11h52

papyvore a répondu à la discussion Avec un TopenDialog, j'ouvre un dossier avec plusieurs photos D6 Win11 dans Débuter

salut sans charger de dll je pense que ça // add uses ShlObj procedure TForm14.Button3Click(Sender: TObject); var TitleName: string; ...

Voir plus

16 réponses | 1797 affichage(s)
08/01/2026, 12h08

papyvore a répondu à la discussion Avec un TopenDialog, j'ouvre un dossier avec plusieurs photos D6 Win11 dans Débuter

si tu veut vider le TScrollBox et le recharger essais plutôtprocedure TForm14.Button2Click(Sender: TObject); begin repeat ...

Voir plus

16 réponses | 1797 affichage(s)
08/01/2026, 10h54

papyvore a répondu à la discussion Avec un TopenDialog, j'ouvre un dossier avec plusieurs photos D6 Win11 dans Débuter

Bonjour a tu essayé Image.Picture := nil; Image.Invalidate;

Voir plus

16 réponses | 1797 affichage(s)
29/12/2025, 11h13

papyvore a répondu à la discussion Delphi 13 Ctrl D dans Delphi

salut c'est pas l'idéal mais .. procedure RunFormatterAndShowOutput(const FileName: string; Memo: TMemo); var SA: TSecurityAttributes; ...

Voir plus

4 réponses | 526 affichage(s)

Plus de résultats

papyvore
Membre éclairé

Mini statistiques

Récents visiteurs

Informations de base

Informations de papyvore

Statistiques

Messages au total

Informations générales

papyvore Membre éclairé

Mini statistiques

Récents visiteurs

Informations de base

Informations de papyvore

Statistiques

Messages au total

Informations générales

papyvore
Membre éclairé