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

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

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.     procedure BtnChangeClick(Sender: TObject);
  15.     procedure BtnSelectClick(Sender: TObject);
  16.     procedure BtnAppClick(Sender: TObject);
  17.     procedure FormCreate(Sender: TObject);
  18.   private
  19.     { Private declarations }
  20.   end;
  22. var
  23.   Form1: TForm1;
  25. implementation
  27. {$R *.DFM}
  29. function GetColor (Col: LongInt): LongInt;
  30.   stdcall; external 'FormDLLP.DLL';
  31. procedure ShowColor (Col: LongInt);
  32.   stdcall; external 'FormDLLP.DLL';
  34. procedure TForm1.BtnChangeClick(Sender: TObject);
  35. var
  36.   Col: LongInt;
  37. begin
  38.   Col := ColorToRGB (Color);
  39.   Color := GetColor (Col)
  40. end;
  42. procedure TForm1.BtnSelectClick(Sender: TObject);
  43. var
  44.   Col: LongInt;
  45. begin
  46.   Col := ColorToRGB (Color);
  47.   ShowColor (Col);
  48. end;
  50. procedure TForm1.BtnAppClick(Sender: TObject);
  51. begin
  52.   ShowMessage ('Application Handle: ' +
  53.     IntToStr (Application.Handle));
  54. end;
  56. procedure TForm1.FormCreate(Sender: TObject);
  57. begin
  58.   // reload the icon of the application
  59.   Application.Icon.Handle :=
  60.     LoadIcon (HInstance, 'MAINICON');
  61. end;
  63. end.