Blog di Andrey Mikhalchuk

Io in realtà penso che questo metodo funziona per Visual Basic e altre lingue troppo simili. Ecco il codice per una cornice di esempio chiamata TfrKnob:

 Unità Knob;

 interfaccia

 usa
   Windows, i messaggi, i SysUtils, Varianti, classi, Grafica, Controlli, forme,
   Finestre di dialogo, StdCtrls, i VrControls e VrWheel;

 tipo
   Class = TfrKnob (TFrame)
     vwKnob: TVrWheel;
     lPos: TLabel;
     CreateParams procedura (Params var: TCreateParams); di forzatura; 
      procedura PaintWindow (DC: HDC); sostituzione;
   privato
     {Dichiarazioni} private
   pubblico
     constructor Create (AOwner: TComponent); forzatura;
     {} Dichiarazioni pubbliche
   fine;

 l'attuazione

 {$ R *. Dfm}

 costruttore TfrKnob.Create (AOwner: TComponent); 
  iniziare 
    ereditato; 
    Brush.Style: = bsClear; 
  fine; 

  TfrKnob.CreateParams procedura (Params var: TCreateParams); 
  iniziare 
    ereditato; 
    Params.ExStyle: = Params.ExStyle o WS_EX_TRANSPARENT; 
  fine; 

  procedura TfrKnob.PaintWindow (DC: HDC); 
  iniziare 
  / / Mantenere questo commento o Delphi perderà questa implementazione del metodo 
  fine;

 fine.

Nuovo codice è in grassetto.

Questo è molto triste, ma a pochi anni fa c'erano modo le informazioni di più su Delfi in Internet e ora questo eccellente ambiente di sviluppo e il linguaggio sembrano morire. E 'bene sapere che è ancora in top 10, però .

1. Dozo Says:
   8 dicembre 2008 alle 03:26

   Bell'articolo è stato molto utile per me

2. Onhate Says:
   27 Agosto 2009 alle 8:58 am

   Funziona in Linux?

3. Andrey Mikhalchuk Says:
   16 Novembre, 2009 alle 16:49

   Ci dispiace, non ho alcun indizio. Se hai provato per favore fatemelo sapere.