* SwissDelphiCenter new Tip newsletter * www.swissdelphicenter.ch * * To unsubscribe send a mail to sdcnewtip-request@xxxxxxxxxxxxx with the * subject unsubscribe Hallo, Folgender neuer Tip ist neu auf SwissDelphiCenter verfügbar: Besuchen Sie die Programmier Tips unter http://www.swissdelphicenter.ch/de/tipsindex.php Bewerten Sie diesen Tip nach Schwierigkeitsgrad, Nützlichkeit und Gesamthaft auf http://www.swissdelphicenter.ch/de/showcode.php?id=1033 Autor: Loïs Bégué <delphi@xxxxxxxx> http://www.begue.de ------------- ...ein MenuItem deaktivieren, ohne dass es grau dargestellt wird ? ------------- Kategorie: Oberfläche procedure TForm1.Button1Click(Sender: TObject); var M: TMenu; begin M := Application.MainForm.Menu; // Den ersten Menueintrag deaktivieren // The first Item will be disabled EnableMenuItem(M.Handle, M.Items[0].Command, MF_BYCOMMAND or MF_DISABLED); end; Best Regards SwissDelphiCenter Team www.swissdelphicenter.ch [automatisch generierte EMail] ---------------------------------------------------- ENGLISH NEWSLETTER ---------------------------------------------------- Hi, This new tip is new available on SwissDelphiCenter.ch: Visit the programming tips at http://www.swissdelphicenter.ch/en/tipsindex.php Rate this tip after skill, useful and overall at http://www.swissdelphicenter.ch/en/showcode.php?id=1033 Author: Loïs Bégué <delphi@xxxxxxxx> http://www.begue.de ------------- ...disable a MenuItem without greying it ? ------------- Category: Forms procedure TForm1.Button1Click(Sender: TObject); var M: TMenu; begin M := Application.MainForm.Menu; // Den ersten Menueintrag deaktivieren // The first Item will be disabled EnableMenuItem(M.Handle, M.Items[0].Command, MF_BYCOMMAND or MF_DISABLED); end; Best Regards SwissDelphiCenter Team www.swissdelphicenter.ch [automatic generated EMail]