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.

  • 相关阅读:
    因浮动问题导致的IE6/7下的换行
    弹性回到顶部js代码
    页面图片的缩放问题
    js练习小结
    地址给的越精确,优先级越高
    判断IE浏览器的版本
    img图像对齐的方式
    三级导航收缩下拉框
    功能已经实现
    AE创建一个空白的Shapefile
  • 原文地址:https://www.cnblogs.com/zhangzhifeng/p/2216229.html
Copyright © 2011-2022 走看看