ComboBox: Angeklickten Eintrag optional hinzufügen

[toms]

Hallo,

Die Schwierigkeit ist, dass im OnCloseUp Ereignis der ComboBox Text nicht verändert werden kann,
da sobald OnCloseUp abgearbeitet wurde, der Text gesetzt wird.
Mit einem kleinen Trick lässt sich dies umgehen.

Es wird eine benutzerdefinierte Nachricht (WM_AFTERCBCLOSEUP) nach dem OnCloseUp per PostMessage der Combobox geschickt.
Übergeben wird der alte Text der ComboBox und eine Referenz auf die Combobox.

Das könnte dann etwa so aussehen:

Delphi-Quellcode:

const
  WM_AFTERCBCLOSEUP = WM_USER + 123;
type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    procedure ComboBox1CloseUp(Sender: TObject);
  private
    { Private declarations }
    procedure WMAfterCBCloseUp(var Msg: TMessage); message WM_AFTERCBCLOSEUP;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function CtrlDown: Boolean;
var
  State: TKeyboardState;
begin
  GetKeyboardState(State);
  Result := ((State[VK_CONTROL] and 128) <> 0);
end;

procedure TForm1.ComboBox1CloseUp(Sender: TObject);
var
  p: PChar;
begin
  if CtrlDown then // falls Ctrl gedrückt
  begin
    P := StrAlloc(Length((Sender as TComboBox).Text)+1);
    StrCopy(P, PChar((Sender as TComboBox).Text));
    PostMessage(Handle, WM_AFTERCBCLOSEUP, Integer(P), Integer(Sender));
  end;
end;

procedure TForm1.WMAfterCBCloseUp(var Msg: TMessage);
var
  s : string;
  p : PChar;
begin
  P := PChar(Msg.WParam);
  s := string(P);
  StrDispose(P);
  with TComboBox(Msg.LParam) do
    Text := s + ',' + Items[ItemIndex];
end;