引言: 請問一下，我下載了下面這個範例程式(我是delphi7)，但他有附原始碼，但我打開後看不到他form的畫面，是因為版本不同嗎?謝謝 http://delphi.ktop.com.tw/loadfile.php?TOPICID=10356870&CC=2316303.

lcc1299：你下載的是BCB版本；我沒有Delphi所以我不知道可不可以開啟。
但這ScreenColor的Delphi版本也有：
http://delphi.ktop.com.tw/topic.php?topic_id=10724
名稱:GetColor
版本:V1.01
原始程式:有(Source)
適用:(D1)(D3)
版權種類:免費軟體(Freeware)
作者:Michael Tran
說明:
Small utility to capture color on other running applications. Written to explore MsMoney color set.    參考這個吧！
P.S：Post 這Unit1.dfm的Text file你可以自己試試看：
object Form1: TForm1
  Left = 192
  Top = 107
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Screen Color'
  ClientHeight = 145
  ClientWidth = 265
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 40
    Width = 113
    Height = 25
    AutoSize = False
    Caption = 'Label1'
  end
  object Label2: TLabel
    Left = 8
    Top = 72
    Width = 113
    Height = 25
    AutoSize = False
    Caption = 'Label2'
  end
  object Label3: TLabel
    Left = 8
    Top = 104
    Width = 113
    Height = 25
    AutoSize = False
    Caption = 'Label3'
  end
  object Label4: TLabel
    Left = 8
    Top = 8
    Width = 113
    Height = 25
    Caption = 'Label4'
  end
  object Panel1: TPanel
    Left = 128
    Top = 8
    Width = 129
    Height = 129
    Caption = 'Panel1'
    TabOrder = 0
    object Image1: TImage
      Left = 8
      Top = 8
      Width = 113
      Height = 113
      Stretch = True
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer1Timer
    Left = 136
    Top = 104
  end
end