comment puis-je avoir une image pour l'arrière-plan Editbox?Comment faire pour définir l'image de fond pour modifier (Delphi)
5
A
Répondre
13
C'est très possible, en effet. Dans votre formulaire, définissez
private
{ Private declarations }
FBitmap: TBitmap;
FBrush: HBRUSH;
protected
procedure WndProc(var Message: TMessage); override;
et faire
procedure TForm1.FormCreate(Sender: TObject);
begin
FBitmap := TBitmap.Create;
FBitmap.LoadFromFile('C:\Users\Andreas Rejbrand\Pictures\AS20Utv.bmp');
FBrush := 0;
FBrush := CreatePatternBrush(FBitmap.Handle);
end;
et
procedure TForm1.WndProc(var Message: TMessage);
begin
inherited;
case Message.Msg of
WM_CTLCOLOREDIT, WM_CTLCOLORSTATIC:
if (Message.LParam = Edit1.Handle) and (FBrush <> 0) then
begin
SetBkMode(Message.WParam, TRANSPARENT);
Message.Result := FBrush;
end;
end;
end;
Bien sûr, vous pouvez envelopper ceci dans un composant de votre propre, dire TEditEx
. Si je prends du temps, je pourrais le faire. (Et, notez qu'il n'y a pas besoin d'acheter un coûteux (et peut-être pas ce pack de composants de haute qualité) d'une société tierce.)
Custom edit background http://privat.rejbrand.se/editbkg.png
Questions connexes
- 1. Comment faire pour supprimer le fond blanc de UITableViewCell
- 2. Comment faire pour afficher l'image de fond en mode texte
- 3. Comment faire pour définir la page de code d'un exécutable Delphi 2006
- 4. Comment faire pour définir l'URL de retour pour DotNetOpenAuth
- 5. rapport de cristal: définir l'image pour fond de rapport (filigrane)
- 6. Comment faire pour définir IsItemsHost dans Silverlight
- 7. iPhone-SDK: Comment définir la couleur de fond pour View et non pour la Table?
- 8. Comment définir un fond transparent de JPanel?
- 9. Comment faire pour "accrocher" l'image au-dessus du fond?
- 10. modifier le fond
- 11. Comment faire pour définir l'icône personnalisée pour le fichier dll?
- 12. Utilisation de ChangeDisplaySettingsEx dans Delphi pour définir le moniteur principal
- 13. Musique de fond dans l'application Delphi
- 14. Comment faire pour modifier le périphérique d'entrée audio par défaut
- 15. Android - comment définir l'image de fond d'écran
- 16. Comment faire pour définir l'opacité d'une ligne datagridview
- 17. Comment faire pour fuir une chaîne dans Delphi
- 18. Comment faire pour que Delphi 2009s (Refactor) Extract Interface fonctionne?
- 19. Comment faire pour trier TStringList différemment dans Delphi
- 20. Comment faire pour porter la bibliothèque delphi à Win CE?
- 21. Comment faire pour modifier l'écran d'accueil de Windows Mobile
- 22. Comment faire pour installer un package de composants Delphi 2009 dans Delphi 2010 (package UniSynEdit)?
- 23. bouton Modifier fond
- 24. Utilisation de Delphi pour modifier les informations de version d'un autre programme Delphi
- 25. Comment faire pour définir $ _FILE sans bouton de navigation html?
- 26. Comment faire pour définir un membre struct de type string
- 27. comment définir l'image répétition-fond à UITableCell
- 28. Comment faire pour modifier dynamiquement les éléments CSS pour être HTTPS ou HTTP
- 29. Image de fond pour MoreNavigationController
- 30. GUI pour définir les plages numériques dans Delphi
Pourquoi ce downvoted? –
Pourquoi WM_CTLCOLOREDIT? Il ne sera pas appelé lorsque le contrôle est désactivé. Pourquoi ne pas WM_ERASEBACKGROUND et WM_PRINTCLIENT? –
+1 parce que quelqu'un a voté pour un code de travail! cela fonctionne – VibeeshanRC