339
339
procedure RealSetText(const AValue: TCaption); override;
340
340
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
341
341
procedure KeyUp(var Key: Word; Shift: TShiftState); override;
343
342
procedure UTF8KeyPress(var UTF8Key: TUTF8Char); override;
344
343
procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X, Y: Integer); override;
345
344
function SelectItem(const AnItem: String): Boolean;