Beepen bei OnKeyDown global unterdrücken

[Hansa]

Zitat:

Zitat von CG2003

Ich habe derzeit eine Anwendung mit hunderten von TEdits, und würde gerne den o.g. Code für alle TEdit setzen.

Wieviele Forms betrifft das denn ? Du kannst das OnKeyDown auch pro Form definieren ! Desweiteren kann man das von Form zu Form weitervererben -> ObjektAblage, also -> OOP. Es werden ja wohl nicht Hunderte Edits auf einer einzigen Form liegen ? :shock: ComponentCount nützt auch nur was bei kleinen Sachen, also Edit1..Edit10. Bei mehr Edits spielt die Nomenklatur eine große Rolle und wird dir wohl die Edits um die Ohren hauen. :lol: Versuche mal Edit1 und edKontoNr mit ComponentCount auf die Reihe zu kriegen. Und das wohl noch Form-übergreifend.

[TStringlist]

Moin,

mit einem TApplicationEvents-Objekt und dessen OnMessage-Property sollte das möglich sein. Hinter einer solchen Property steht nämlich so etwas wie ein lokaler Hook, dh.: Du kannst in dem entsprechenden OnMessage-Eventhandler dann so ziemlich alle Messages abfangen, die vom System an die Controls deiner Application abgeschickt wurden. Also auch alle WM_Char-Messages an alle TEdits deiner Anwendung:

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var ATWinControl : TWinControl;
begin
  if Msg.message = WM_Char then
    if Msg.wParam = vk_Return then begin
      ATWinControl := FindControl(Msg.hwnd);
      if  (ATWinControl <> Nil)
      and (ATWinControl is TEdit) then Handled := true;
    end;
end;

[phXql]

Zitat:

Zitat von Hansa

Zitat:

Zitat von CG2003

Ich habe derzeit eine Anwendung mit hunderten von TEdits, und würde gerne den o.g. Code für alle TEdit setzen.

Wieviele Forms betrifft das denn ? Du kannst das OnKeyDown auch pro Form definieren ! Desweiteren kann man das von Form zu Form weitervererben -> ObjektAblage, also -> OOP. Es werden ja wohl nicht Hunderte Edits auf einer einzigen Form liegen ? :shock: ComponentCount nützt auch nur was bei kleinen Sachen, also Edit1..Edit10. Bei mehr Edits spielt die Nomenklatur eine große Rolle und wird dir wohl die Edits um die Ohren hauen. :lol: Versuche mal Edit1 und edKontoNr mit ComponentCount auf die Reihe zu kriegen. Und das wohl noch Form-übergreifend.

Es is doch egal, wie die Edits heissen. Ich kann doch mit ComponentCount drüber iterieren und dann mit

Delphi-Quellcode:

Components[n] is TEdit

abfragen ob es ein Edit ist, und dann das Event zuweisen...

[Sharky]

Hai ihr,

warum denn nicht den einfachsten Weg nehmen und sich ein eigene Komponente von TEdit ableiten und in dieser dann die gewünschte Funktionalität einbauen?

EDIT:
Das ganze könnte dann zum Beispiel so aussehen:

Delphi-Quellcode:

unit ShEdit;

interface

uses
  Classes, StdCtrls, Controls, Messages, Windows;

type
  TShEdit = class(TEdit)
  protected
    FEnterAsTab: Boolean;
    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property EnterAsTab: Boolean Read FEnterAsTab Write FEnterAsTab default True;
  end;

procedure Register;

implementation

constructor TShEdit.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FEnterAsTab := True;
end;

destructor TShEdit.Destroy;
begin
  inherited Destroy;
end;

procedure TShEdit.KeyDown(var Key: Word; Shift: TShiftState);
var
  mgsTemp : TMsg;
begin
  if (Key = VK_RETURN) then
  begin
    if (FEnterAsTab) then
    begin
      Parent.Perform(WM_NEXTDLGCTL, 0, 0);
    end;
    PeekMessage(mgsTemp, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
  end;
  inherited KeyDown(Key, Shift);
end;

procedure Register;
begin
  RegisterComponents('Sharky', [TShEdit]);
end;

end.

Einfach die Unit in ein Package laden, compilieren, installieren und verwenden.

[phXql]

Er hat doch schon hunderte von Edits in seinem projekt. Dann müsste er all diese Edits durch sein neues Edit austauschen...

[teebee]

Das könnte er z.B. durch Search/Replace in den entsprechenden .dfm-Dateien machen. (Vorher Sicherungskopien machen...)

Gruß, teebee

[ichbins]

du kannst ja eine Klasse schreiben, die die Methode enthält, die du mit ComponentCount zuweist, und einen Verweis auf die alte Methode. Dann machst du ein dynamisches Array dieser Klasse und durchläufst alle edits des forms mit componentcount, und immer, wenn du einen Edit findest, erzeugst du ein neues Element des Arrays und setzt die alte Methode. Die führst du in der neuen Prozedur aus.

[Khabarakh]

Mit dieser Idee kommst du exakt 10 Posts zu spät :wink: . Aber du willst wirklich für eine variable Länge dynamische Arrays einsetzen?

[CG2003]

Zitat:

Zitat von phXql

Er hat doch schon hunderte von Edits in seinem projekt. Dann müsste er all diese Edits durch sein neues Edit austauschen...

Eben... Also gibt es keine (einfache) Möglichkeit dies zu realisieren, oder?

[Khabarakh]

Zitat:

Zitat von CG2003

Zitat:

Zitat von phXql

Er hat doch schon hunderte von Edits in seinem projekt. Dann müsste er all diese Edits durch sein neues Edit austauschen...

Eben... Also gibt es keine (einfache) Möglichkeit dies zu realisieren, oder?

:gruebel: TStringLists Code besteht aus 11 Zeilen, das sollte doch einfach genug sein.