![]() |
die netten Allplication.MessageBox-Icons auf ner form?
hi
ich will auf ner form so icons wie die fehler und warnungs-icons auf den meldungen Application.Messagebox... ich hoffe ihr wisst was ich mein wie komm ich an die ran? |
Re: die netten Allplication.MessageBox-Icons auf ner form?
moin
ich weiss zwar nicht ob du das darfst, aber im zweifel könntest du einen Screenshot machen und dann dein eigens Icon daraus zaubern! |
Re: die netten Allplication.MessageBox-Icons auf ner form?
gibts die denn nit irgendwo?
oder wo hat delphi bzw win die? |
Re: die netten Allplication.MessageBox-Icons auf ner form?
Das sind allgemein nutzbare Icons, fest im System verdrahtet, aber glücklicherweise erreichbar mit Konstanten. Guckst du mal im MSDN/PSDK unter [msdn]"LoadIcon"[/msdn]? Als Beispiel --
Pack ein TImage auf deine Form und dann mach folgendes:
Delphi-Quellcode:
Die IDI_*-Konstante bezeichnet bspw. das Warnungssymbol. Unter der o.g. Funktion solltest du auch die anderen Icons finden.
Image1.Picture.Icon.Handle := LoadIcon(0,IDI_WARNING);
|
Re: die netten Allplication.MessageBox-Icons auf ner form?
dasn guter tipp.....
werd ma gucken was ich finde aber jetzt hau ich mich erst ma ins bett, schule... :-( |
Re: die netten Allplication.MessageBox-Icons auf ner form?
Moin glkbkk,
oder Du verzichtest auf Application.MessageBox und nimmst statt dessen gleich die API Funktion MessageBox. Da kannst Du dann das jeweilige Icon direkt angeben. |
Re: die netten Allplication.MessageBox-Icons auf ner form?
es geht mir mehr darum, das ich auch mehrzeilige sachen inner messagebox machen will, und das mit dem #10#13 nie funzt.... :-(
|
Re: die netten Allplication.MessageBox-Icons auf ner form?
Zitat:
mfG mirage228 |
Re: die netten Allplication.MessageBox-Icons auf ner form?
ja, wusst ich nicht mehr, aber ich hatte es mal hin und her und umgedreht mit space dazwischen, ohne, und alles was mir so eingefallen ist probiert, und es hatz nicht geklappt
|
Re: die netten Allplication.MessageBox-Icons auf ner form?
Delphi-Quellcode:
Wozu die #10? Ich mache es immer so...
messagedlg('Der Test ist schief gegangen.'#13#13'Jetzt hör endlich mit den endlosen Versuchen auf!',mtwarning, [mbok],0);
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:42 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz