Blog do Andrey Mikhalchuk

Eu realmente acho que este método funcionará para o Visual Basic e outras linguagens semelhantes também. Aqui está o código para um quadro de amostra chamado TfrKnob:

 Knob unidade;

 interface

 usa
   Windows, Mensagens, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Diálogos, StdCtrls e VrControls e VrWheel;

 tipo
   Classe TfrKnob = (TFrame)
     vwKnob: TVrWheel;
     OLP: TLabel;
     CreateParams procedimento (var Params: TCreateParams); substituição; 
      procedimento PaintWindow (DC: HDC); override;
   privado
     {Declarações privadas}
   público
     constructor Create (AOwner: TComponent); override;
     {Declarações públicas}
   end;

 implementação

 {$ R * dfm.}

 TfrKnob.Create construtor (AOwner: TComponent); 
  começar 
    herdado; 
    Brush.Style: = bsClear; 
  end; 

  TfrKnob.CreateParams procedimento (var Params: TCreateParams); 
  começar 
    herdado; 
    Params.ExStyle: = Params.ExStyle ou WS_EX_TRANSPARENT; 
  end; 

  procedimento TfrKnob.PaintWindow (DC: HDC); 
  começar 
  / / Manter este comentário ou Delphi vai perder essa implementação do método 
  end;

 final.

Novo código é em negrito.

Isto é muito triste, mas apenas alguns anos atrás, havia informações maneira mais sobre Delphi na Internet e agora este excelente ambiente de desenvolvimento e linguagem parecem morrer. É bom saber que ainda está em top 10, embora .

1. Dozo Says:
   08 de dezembro de 2008 às 03:26

   Belo artigo foi muito útil para mim

2. Onhate Says:
   27 de agosto de 2009 às 8:58 am

   Será que funciona no Linux?

3. Andrey Mikhalchuk Says:
   16 de novembro de 2009 às 16:49

   Desculpe, eu não tenho idéia. Se você tentou por favor me avise.