Windows XP-passwordfelt

I min Delphi 7 og med WinXP virker den alm. TEdit fint som password edit? Har jeg overset noget?

1. Den "almindelige" TEdit viser stjerner ikke prikker
2. Den "almindelige" TEdit advarer ikke, hvis Caps Lock er aktiveret
3. Den "almindelige" TEdit's Text kan læses ved hjælp af WM_GETTEXT

Problem løst:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TEdit1 = class(TEdit)
  protected
    { Protected declarations }
    procedure CreateParams(var Params: TCreateParams); override;
  end;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TEdit1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do
    Style := Style or ES_PASSWORD;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TEdit1.Create(Self) do
  begin
    Visible := True;
    Parent := Form1;
  end;
end;

end.

På min winXP og md Delphi 7 der har jeg ingen problemer med punkt 1+2+3

Hov ... jeg forlod mig vist lidt rigeligt på gneggs postulater - 2 + 3 virker fint.

Men der kan stadig ikke vises prikker, da PasswordChar skal gå fra 0 til og med 255.

Så kan man i stedet fx vælge Wingdings®, men så bliver der ikke vist stjerner i ældre Windows-versioner.

/Hallandsen

Wingdings is a registered trademark of Microsoft Corporation in the United States and/or other contries

contries = countries

har du inkluderet en [exe navn].exe.manifest sammen med programmet så xp temaet tager over i stedet? :)

http://msdn.microsoft.com/en-us/library/aa289524(VS.71).aspx

http://msdn.microsoft.com/en-us/library/ms997646.aspx

dette skal stå i et ganske almindeligt plai text format:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>

<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">

<assemblyIdentity

version="1.0.0.0"

processorArchitecture="X86"

name="CompanyName.ProductName.YourApp"

type="win32"

/>

<description>Your application description here.</description>

<dependency>

<dependentAssembly>

<assemblyIdentity

type="win32"

name="Microsoft.Windows.Common-Controls"

version="6.0.0.0"

processorArchitecture="X86"

publicKeyToken="6595b64144ccf1df"

language="*"

/>

</dependentAssembly>

</dependency>

</assembly>

dette gemmes i med .exe.manifest endelsen fx: delphi32.exe.manifest (så bliver delphi faktisk også tegnet med windows xp's nyere controls tema)

^ Ja, men det gør ingen forskel

/Hallandsen