, ved hjælp af en vej, der kan ligne en hacker, er det muligt at ændre generiske besked kasser og ændre ikon, redigere, størrelse osv. tanken bag denne tilpasning er at skabe en skik besked efter den kø før * at indbakke.i den besked, du fat i håndtaget på vinduet (hvis det er messagebox) eller form (hvis det er inputbox /inputquery /messagedlg) og du ændre, hvad du vil.lad mig komme med to eksempler, ét for en regelmæssig api - messagebox og en anden i en inputquery, første eksempel: man er nødt til at ændre den misligholdelse legende af ja /nej - knappen af en regelmæssig messagebox., type,    tform1 = klasse (tform),      button1: tbutton;,      procedure button1click (afsender: tobject),    private,      procedure wmhackbox (var budskab: tmessage); meddelelse wm_user + 1025;,   ;,,,,,,, gennemførelse,..., procedure tform1. button1click (afsender: tobject), begynder,    //udstationering vores skik budskab,    postmessage (klare, wm_user + 0, 025 0),    //messagebox,    anvendelse. messagebox (') "helt dumme.", "myapplication, mb_yesno eller mb_iconinformation);,;, procedure tform1. wmhackbox (var tmessag besked:e), var,    h: hwnd; begynder,    //beskeden boks er vist, lad os hente sin klare,    h = findwindow (wc_dialog, myapplication),    //, hvis det er rigtigt messagebox, lad os ændre det,   , hvis getparent (h) = anvendelse. klare,    begynder,      setdlgitemtext (h id_yes, jeg & er enig "),      setdlgitemtext (h id_no, jeg & uenig"),   ;,;, opmærksom på, at hvis du bruger messagedlg, det er ikke en almindelig api - messagebox, men en form, der aktivt af delphi.se 2. f.eks.,,, 2. f.eks. skal du skifte edit ejendom af en inputquery, f.eks. passwordchar., type,    tform1 = klasse (tform),      button1: tbutton;,      procedure button1click (afsender: tobject),    private,      procedure wmhack (var tmessage besked:) meddelelse wm_user + 1024;,   ;,,,,,,, gennemførelse,..., denne,    acaption = "post", procedure tform1. button1click (afsender: tobject), begynder,    postmessage (klare, wm_user + 1024, 0, 0),    inputbox (acaption "omgående" "standard);,;, procedure tform1. wmhack (var budskab: tmessage), var,    jeg: heltal,    j: heltal, begynder, for jeg   : = 0 til screen.formcount-1,     , hvis skærmen. form [i]. legende = acaption,      begynde,        for j = 0 til skærmen. form [i]. controlcount-1,         , hvis skærmen. form [i]. kontrol [j] er tedit,          begynder,            tedit (skærm. form [i]. kontrol [j]). passwordchar: =&#«,            tedit (skærm. form [i]. kontrol [j]). selectall;,            udpassage,         ;,     ;,,,,