zoukankan      html  css  js  c++  java
  • Delphi TRzButtonEdit的用法

    这个是效果图,挺爽的吧

    object Form1: TForm1
      Left = 192
      Top = 114
      Width = 979
      Height = 563
      Caption = 'Form1'
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      OldCreateOrder = False
      PixelsPerInch = 96
      TextHeight = 13
      object RzButtonEdit1: TRzButtonEdit
        Left = 176
        Top = 104
        Width = 433
        Height = 21
        ImeName = '中文 (简体) - 搜狗拼音输入法'
        TabOrder = 0
        AltBtnKind = bkReject
        AltBtnVisible = True
        OnAltBtnClick = RzButtonEdit1AltBtnClick
        OnButtonClick = RzButtonEdit1ButtonClick
      end
    end

    unit Unit1;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, Mask, RzEdit, RzBtnEdt;

    type
      TForm1 = class(TForm)
        RzButtonEdit1: TRzButtonEdit;
        procedure RzButtonEdit1AltBtnClick(Sender: TObject);
        procedure RzButtonEdit1ButtonClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.RzButtonEdit1AltBtnClick(Sender: TObject);
    begin
      ShowMessage('我是ALT');
    end;

    procedure TForm1.RzButtonEdit1ButtonClick(Sender: TObject);
    begin
      ShowMessage('我是BTN');
    end;

    end.

  • 相关阅读:
    JavaSE-面向对象
    JavaSE-数组
    JavaSE-方法
    JavaSE-流程控制
    JavaSE-基础语法
    Java-初识Java
    PTH的几种食用姿势
    CVE-2020-1472 Zerologon
    OpenGL 术语
    使用IDEA创建SpringMVC项目
  • 原文地址:https://www.cnblogs.com/zhangzhifeng/p/2216229.html
Copyright © 2011-2022 走看看