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