Procedure

TfrmdlgProb.cbLocKeyPress

Module

fProbEdt

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmdlgProb

Declaration

procedure cbLocKeyPress(Sender: TObject; var Key: Char);


Source

962   procedure TfrmdlgProb.cbLocKeyPress(Sender: TObject; var Key: Char);
963   begin
964     if key = #13 then
965       SendMessage(cbLoc.Handle, CB_SHOWDROPDOWN, 1, 0) {Opens list}
966     else
967       SendMessage(cbLoc.Handle, CB_SHOWDROPDOWN, 0, 0) {Closes list}
968   end;