Property Read Only bei Combobox hinzufügen (Style = csSimple)

[Bummi]

Ich verstehe die letzte Frage nicht ganz...
Du rufst Du
if not readonly then inherited;
auf die Procedure ist ja mit override und nicht ohne alles oder mit overload oder reintroduce deklariert

[RWarnecke]

Zitat von Bummi:

Ich verstehe die letzte Frage nicht ganz...
Du rufst Du
if not readonly then inherited;
auf die Procedure ist ja mit override und nicht ohne alles oder mit overload oder reintroduce deklariert

Ok, vergiss meine letzte Frage. Habe die Procedure KeyPress mit dem Ereignis OnKeyPress der Komponente verwechslet, weil nicht richtig gelesen. Deshalb erübrigt sich meine Frage nach dem KeyPress.

[Koloss]

Gibt es hier ein Lösung? Weil das ganze hier ist keine Lösung.

Das man KeyPress nichts macht kann man doch einfacher auch lösen, es geht doch auch darum das er beim auswählen eines Eintrags den Text nicht reinschreibt. Ich möchte aber trotzdem die Einträge sehen. Nur beim auswählen sollte nichts passieren !

[Koloss]

Meine Lösung:

Code:

unit ComboBoxReadOnly;

interface

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

type
  TComboBox = class(StdCtrls.TComboBox)
  private
    FReadOnly: Boolean;
    LastItemIndex : Integer;
    procedure SetReadOnly(const Value: Boolean);
    procedure KeyPress(var Key: Char); override;
    Procedure CreateWnd; Override;
  public
    { Public-Deklarationen }
  published
    procedure DropDown; override;
    procedure CloseUp; override;
    property ReadOnly: Boolean read FReadOnly write SetReadOnly default False;
  end;

implementation

procedure TComboBox.CloseUp;
begin
  inherited;
  ItemIndex := LastItemIndex;
end;

procedure TComboBox.CreateWnd;
begin
  inherited;
  ReadOnly := FReadOnly;
end;

procedure TComboBox.DropDown;
begin
  inherited;
  if readonly then
    LastItemIndex := ItemIndex;
end;

procedure TComboBox.KeyPress(var Key: Char);
begin
  if not readonly then
    inherited;

end;

procedure TComboBox.SetReadOnly(const Value: Boolean);
begin
  FReadOnly := Value;
  if HandleAllocated then
    SendMessage(EditHandle, EM_SETREADONLY, Ord(Value), 0);
end;

end.