Hint Forma Facil Lazarus

Configuração para mostrar hint automático no status bar

STATUSBAR1.AutoHint: True
STATUSBAR1ShowHint: True

Depois no componente habilita o hint que deseja mostrar

Erro ao compilar aplicacao console Lazarus

 Quando apresentar esse erro ao compilar no Lazarus em uma aplicação console

project1.lpr(11,1) Error: Undefined symbol: WSRegisterCustomImageList

project1.lpr(11,1) Error: Undefined symbol: WSRegisterMenuItem

project1.lpr(11,1) Error: Undefined symbol: WSRegisterMenu

project1.lpr(11,1) Error: Undefined symbol: WSRegisterMainMenu

project1.lpr(11,1) Error: Undefined symbol: WSRegisterPopupMenu

project1.lpr(11,1) Error: Undefined symbol: WSRegisterDragImageList

project1.lpr(11,1) Error: Undefined symbol: WSRegisterLazAccessibleObject

project1.lpr(11,1) Error: Undefined symbol: WSRegisterControl

project1.lpr(11,1) Error: Undefined symbol: WSRegisterWinControl

project1.lpr(11,1) Error: Undefined symbol: WSRegisterGraphicControl

project1.lpr(11,1) Error: Undefined symbol: WSRegisterCustomControl

project1.lpr(11,1) Error: Undefined symbol: WSRegisterScrollingWinControl

project1.lpr(11,1) Error: Undefined symbol: WSRegisterScrollBox

project1.lpr(11,1) Error: Undefined symbol: WSRegisterCustomFrame

project1.lpr(11,1) Error: Undefined symbol: WSRegisterCustomForm

project1.lpr(11,1) Error: Undefined symbol: WSRegisterHintWindow

project1.lpr(11,1) Error: Undefined symbol: WSRegisterCustomScrollBar

project1.lpr(11,1) Error: Undefined symbol: WSRegisterCustomGroupBox

project1.lpr(11,1) Error: Undefined symbol: WSRegisterCustomComboBox

project1.lpr(11,1) Error: Undefined symbol: WSRegisterCustomListBox

project1.lpr(11,1) Error: Undefined symbol: WSRegisterCustomEdit

project1.lpr(11,1) Error: Undefined symbol: WSRegisterCustomMemo

project1.lpr(11,1) Error: Undefined symbol: WSRegisterButtonControl




Incluir no arquivo principal a unit interfaces.

Uses interfaces, sysutils, ....;]










Destacar uma palavra DBGrid

 https://www.devmedia.com.br/forum/destacar-string-no-dbgrid/286652

Chamando Formulario pelo Nome 

https://www.devmedia.com.br/quick-tip-criar-form-a-partir-de-uma-string-parte-2/15722

Criar Formulario por Interfaces

 

Operation not supported on selected printer

No Delphi7 usando o Fast Report 2.5 quando envia um relatório para a impressora, as vezes,  no Windows 10 e 2012 apresenta a mensagem 

Operation not supported on selected printer.

Para resolver esse problema, antes de fazer um frReport.ShowReport faça o seguinte:

var

  dev,

  driv,

  port: array[0..80] of Char;

  deviceMode: THandle;

begin

  Printer.GetPrinter(dev, driv, port, deviceMode);

  Printer.SetPrinter(dev, driv, port, 0);

  frPreview1.Print;

end;

ps: Adicionar a unit printers no uses da interface.

Solução encontrada no site: https://stackoverflow.com/questions/435144/operation-not-supported-and-printer-selected-is-not-valid-errors-while-print

SetFocus no Firemonkey Delphi.

 

SetFocus no Firemonkey Delphi.

O Firemonkey do Delphi proíbe a mudança de foco em alguns eventos. Para conseguir contornar a situação do SetFocus dos campos, precisamos mandar um mensagem atrasada para o form.

Como mandar esta mensagem. Simples vamos usar uma Thread Anonima. Pois é depois de muita procura achei um paliativo.

Vamos a Função:

procedure TfrmTelaPadrao.ForceFocus(Obj: TControl);
begin
  TThread.CreateAnonymousThread(
    procedure
    begin
      TThread.Synchronize( nil,
         procedure
         begin
           Obj.SetFocus;
         end
      );
    end
  ).Start;
end;

Espero que tenha ajudado a quem procura.

Origem: https://valedodelphi.blogspot.com/2018/11/setfocus-no-firemonkey-delphi.html