小技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. |