小技









小技1

   Formの Scaled property を Falseにすることで

   Windows 画面のプロパティの小さいFont(96dpi)

   大きいFont125% (120dpi)

   PixelsPerInch に関係無くFormを作れます

   Default の True ですと Font の大きさで

   Form のレイアウトが変化し 崩れることがあります

小技2

   Form1.DoubleBuffered := True;

   メモリの消費は多くなりますが

   コントロールの再描画時のちらつきは減ります

小技3

   Thread pas  Unit2 に一つのThreadだけではなく

   次のようにすれば2種以上のThreadを書く事が出来ます



unit Unit2;



interface



uses

  Classes, windows, MMSystem, SysUtils,Unit1, ExtCtrls, Clipbrd ;



type

  TThread1 = class(TThread)

  private

    { Private 宣言 }

  protected

    procedure Execute; override;

  end;



  TThread2 = class(TThread)

  private

    { Private 宣言 }

  protected

    procedure Execute; override;

  end;



implementation



{ TThread1 }

procedure TThread1.Execute;

begin

   { スレッドとして実行したいコードをここに記述 }  

end;



{ TThread2 }

procedure TThread2.Execute;

begin

   { スレッドとして実行したいコードをここに記述 }  

end;

end.










Back