Button mit speziellen Eigenschaften gesucht

[BrunoT]

Hi DP' ler,

ich suche einen Button, der
a) ein BitButton ist(mit Canvas)
b) nicht bloss OnClick, sondern auch OnKeyDown, OnKeypressed, OnExit kennt
c) VK_Up und VK_Down im OnKeyDown Ereignis auswerten lässt.

hat wer da einen Tipp?

mfg

BrunoT

[Bernhard Geyer]

Wenns was kosten darf: TElPopupButton

[Ultimator]

Das ist doch eigentlich kein Problem, sowas selber zu schreiben.
Einfach die WindowMessages abfangen und für die gedrückten Tasten die Parameter anschauen

Ich setz mich mal ran, vielleicht bring ich was zusammen *gg*

//edit: Ich seh grade, TBitBtn erfüllt doch alle Anforderungen?
Theoretisch müsste auch das mit VK_UP und so gehen, denn die anderen virtuellen Tastencodes funktionieren ja

[BrunoT]

Hi,

danke für die schnellen Antworten,

a) nein, kosten darf´s nichts.
b) der BitBtn zeigt die Ereignisse VK_UP und VK_Down im OnKeypressed- Ereignis nicht an
sondern springt gleich zum nächsten oder vorhergehenden Control.

mfg

BrunoT

[BrunoT]

So nun hab ich mich einmal daran gewagt, das in eine neue Komponente zu packen:

Delphi-Quellcode:

unit UExtraButton;

interface

uses
   SysUtils, Classes, Controls, StdCtrls, Buttons, windows;

type
  TExtraButton = class(TBitBtn)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
    constructor create(AOwner: TComponent); override;
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure TExtraButton.KeyDown(var Key: Word; Shift: TShiftState);
begin
  if not (key  in [Vk_UP,VK_Down]) then
  inherited KeyDown(key, Shift);
end;

constructor TExtraButton.create(AOwner: TComponent);
begin
      inherited create(AOwner);
end;

procedure Register;
begin
  RegisterComponents('Zusätzlich', [TExtraButton]);
end;

end.

aber diese macht das auch nicht wie ich will(VK_UP,VK_DOWN) werden vorher abgefangen.

mfg

BrunoT

wer kann helfen?

[Christian Seehase]

Moin Holger,

schau Dir mal die Threads an in denen WM_GETDLGCODE behandelt wird.
Du wirst dem Button "mitteilen" müssen, dass bestimmte Tasten verarbeitet werden sollen.

[BrunoT]

Danke Christian, ich wusste, dass ich mich auf die DP verlassen kann!

für alle, die das Problem auch haben:

Delphi-Quellcode:

unit UExtraButton;

interface

uses
   SysUtils, Classes, Controls, StdCtrls, Buttons,Forms, windows,Messages;

type
  TExtraButton = class(TButton)
  private
    procedure FWMGETDLGCODE(var Msg : TWMGetDlgCode); message wm_GetDlgCode;
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure TExtraButton.FWMGETDLGCODE(var Msg : TWMGetDlgCode);
begin
  inherited;
  Msg.Result := Msg.Result or DLGC_WANTARROWS;
end;

procedure Register;
begin
  RegisterComponents('Zusätzlich', [TExtraButton]);
end;

end.

mfg

BrunoT