das habe ich auf
dieser Seite gefunden:
Delphi-Quellcode:
[...]
2nd example: You need
to change the edit
property of a InputQuery,
for instance the PasswordChar.
type
TForm1 =
class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure WMHack(
var message: TMessage);
message WM_USER + 1024;
end;
...
implementation
...
const
ACaption = '
Caption';
procedure TForm1.Button1Click(Sender: TObject);
begin
PostMessage(
Handle, WM_USER + 1024, 0, 0);
InputBox(ACaption, '
Prompt', '
Default');
end;
procedure TForm1.WMHack(
var message: TMessage);
var
i: Integer;
j: Integer;
begin
for i := 0
to Screen.FormCount-1
do
if Screen.Forms[i].Caption = ACaption
then
begin
for j := 0
to Screen.Forms[i].ControlCount-1
do
if Screen.Forms[i].Controls[j]
is TEdit
then
begin
TEdit(Screen.Forms[i].Controls[j]).PasswordChar := '
#';
TEdit(Screen.Forms[i].Controls[j]).SelectAll;
Exit;
end;
end;
end;
[...]
Funktioniert nur irgendwie nicht.
meckert schon, wenn ich die prozedur unter private deklariere...
Code:
[Fehler] Uhaupt.pas(116): Ungenügende Forward- oder External-Deklaration: 'TFormHaupt.WMHack'
Kann jemand helfen?
Gruß, dopeline