DrShepard

Hello! I need to set DropDownForm for MyDBGridEh.Columns[3].STFilter. My grid has 4 columns, but only one column needs to have its stfilter changed. So I created a new class type TExtSTColumnFilterEh = class (TSTColumnFilterEh) public property DropDownFormParams: TDropDownFormCallParamsEh read FDropDownFormParams write FDropDownFormParams; end; How can I changed STFilter on my third column? I tried it like this procedure TMainForm.FormCreate(Sender: TObject); begin MainGrid.Columns[3].STFilter.Free; MainGrid.Columns[3].STFilter := TExtSTColumnFilterEh.Create(MainGrid.Columns[3]); TExtSTColumnFilterEh(MainGrid.Columns[3].STFilter).DropDownFormParams.DropDownForm := LVDropDownForm; end; But DropDownForm doesn't appear. I will be glad to receive any advice and ideas. I'm using grid from EhLib 9.3 library.

Hello! I am trying to execute multiple SQL statements at once in an anonymous block of code. I am using FireDAC and Postgres database. When I set the parameters, I get an error on execution: 'Parameter 'p_val1' not found' https://pastebin.com/dPRB8T3d I tried TFDСommand and TFDScript objects, but it didn't help. What am I doing wrong?

Hello! I need to convert xls-file to xlsx-file without OLE. Any ideas?

This method doesn't work in cycle. uses Winapi.Windows, Winapi.ShellApi, System.SysUtils; var Command: PWideChar; SearchRec: TSearchRec; XLSdir, XLSXdir: string; begin try XLSdir := ExtractFilePath(ParamStr(0)) + 'xls'; XLSXdir := ExtractFilePath(ParamStr(0)) + 'xlsx'; if FindFirst(XLSdir + '\*.xls', faAnyFile, SearchRec) = 0 then repeat if (SearchRec.Name = '.') or (SearchRec.Name = '..') then continue; WriteLn(SearchRec.Name); Command := PChar('/c ""C:\Program Files\LibreOffice\program\soffice.exe" --convert-to xlsx "' + XLSdir + '\' + SearchRec.Name + '" -outdir "' + XLSXdir + '""'); ShellExecute(GetModuleHandle(nil), 'open', 'cmd.exe', Command, nil, SW_HIDE); Sleep(1000); until FindNext(SearchRec) <> 0; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; Write(#13#10 + 'press any key to continue...'); ReadLn; end.

I 'm looking for freeware solution, that's why TMS is not my way

Hello! I need to make hint appears in OnKeyPress event like in NumbersOnly-property (see attach). Because I use another input logic (not only numbers, but some special symbols too). I know that hint message is generated by Windows itself. What should I do?

The problem was solved) Topic is not actual anymore

I know about TBalloonHint component, but I want to make system hint as I said. See attach again.