TBrowserLookupEdit |
Top Previous Next |
TBrowserLookupEdit:TEdit
Sheet.MergeCells(3,5,11,5); Sheet['C5'].CellComponent:=TBrowserLookupEdit.Create(Sheet); Sheet['C5'].CellComponent.Parent:=Sheet; with TBrowserLookupEdit(Sheet['C5'].CellComponent) do begin LookupSQL.Text:='select mat_druh from dba.bi_fakturace_main where mat_druh is not null group by mat_druh '; LookupDatabase:='oskar'; LookupDispField:='mat_druh'; LookupField:='mat_druh'; MultiSelect:=True; ItemMustExist:=False; Text:=clDruh; end;
Události
OnGetCellParams procedure BrowserLookupEditGetCellParams(Sender: TObject; Field: TField; Dataset: TDataSet; Font: TFont; var Background: TColor; Highlight: Boolean);
OnChange procedure BrowserLookupEditChange(Sender: TObject);
OnKeyDown procedure BrowserLookupEditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
OnKeyPress procedure BrowserLookupEditKeyPress(Sender: TObject; var Key: Char);
OnValueChange procedure BrowserLookupEditValueChange(Sender: TObject);
|