开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
UseColF.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

UseColF.pas：源码内容
  1. unit UseColF;
  3. interface
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     BtnChange: TButton;
  12.     BtnSelect: TButton;
  13.     BtnApp: TButton;
  14.     BtnSync: TButton;
  15.     procedure BtnChangeClick(Sender: TObject);
  16.     procedure BtnSelectClick(Sender: TObject);
  17.     procedure BtnAppClick(Sender: TObject);
  18.     procedure BtnSyncClick(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     procedure UserMessage (var Msg: TMessage);
  23.       message wm_user;
  24.   end;
  26. var
  27.   Form1: TForm1;
  29. implementation
  31. {$R *.DFM}
  33. function GetColor (Col: LongInt): LongInt;
  34.   stdcall; external 'FormDLL.DLL';
  35. procedure ShowColor (Col: LongInt;
  36.   FormHandle: THandle; MsgBack: Integer);
  37.   stdcall; external 'FormDLL.DLL';
  38. procedure SyncApp (AppHandle: THandle);
  39.   stdcall; external 'FormDLL.DLL';
  41. procedure TForm1.BtnChangeClick(Sender: TObject);
  42. var
  43.   Col: LongInt;
  44. begin
  45.   Col := ColorToRGB (Color);
  46.   Color := GetColor (Col)
  47. end;
  49. procedure TForm1.BtnSelectClick(Sender: TObject);
  50. var
  51.   Col: LongInt;
  52. begin
  53.   Col := ColorToRGB (Color);
  54.   ShowColor (Col, Handle, wm_user);
  55. end;
  57. procedure TForm1.UserMessage(var Msg: TMessage);
  58. begin
  59.   Color := Msg.WParam;
  60. end;
  62. procedure TForm1.BtnAppClick(Sender: TObject);
  63. begin
  64.   ShowMessage ('Application Handle: ' +
  65.     IntToStr (Application.Handle));
  66. end;
  68. procedure TForm1.BtnSyncClick(Sender: TObject);
  69. begin
  70.   SyncApp (Application.Handle);
  71.   BtnSync.Enabled := False;
  72. end;
  74. end.