文档章节

BringToFront、SendToBack - 控件置前与置后

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 245
阅读 13
收藏 0
点赞 0
评论 0
本例效果图:



代码文件:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure Panel1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  RadioButton1.Caption := '置前';
  RadioButton2.Caption := '置后';
  RadioButton1.Checked := True;
  Panel2.OnClick := Panel1Click;
  Panel3.OnClick := Panel1Click;

  Panel1.ParentBackground := False;
  Panel1.Color := clRed;
  Panel2.ParentBackground := False;
  Panel2.Color := clLime;
  Panel3.ParentBackground := False;
  Panel3.Color := clBlue;
end;

procedure TForm1.Panel1Click(Sender: TObject);
begin
  if RadioButton1.Checked then TPanel(Sender).BringToFront;
  if RadioButton2.Checked then TPanel(Sender).SendToBack;
end;

end.

 
 
 
 
 

 

 

  
窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 174
  ClientWidth = 264
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 8
    Top = 16
    Width = 151
    Height = 41
    Caption = 'Panel1'
    TabOrder = 0
    OnClick = Panel1Click
  end
  object Panel2: TPanel
    Left = 46
    Top = 40
    Width = 151
    Height = 41
    Caption = 'Panel2'
    TabOrder = 1
  end
  object Panel3: TPanel
    Left = 102
    Top = 63
    Width = 151
    Height = 41
    Caption = 'Panel3'
    TabOrder = 2
  end
  object RadioButton1: TRadioButton
    Left = 32
    Top = 136
    Width = 113
    Height = 17
    Caption = 'RadioButton1'
    TabOrder = 3
  end
  object RadioButton2: TRadioButton
    Left = 151
    Top = 136
    Width = 113
    Height = 17
    Caption = 'RadioButton2'
    TabOrder = 4
  end
end

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/10/23/1318181.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
APICloud上openFrameGroup把菜单挡住了,怎么处理?

问:openFrameGroup把菜单挡住了,怎么处理? 试了sendFrameToBack没反应,又不能页面自己openFrameGroup,不知道该怎么办。而且用另外的页面先openFrameGroup再openFrame('header'),点击菜单...

二十郎当岁 ⋅ 2016/10/26 ⋅ 0

Android中控件移动的实现

在一些界面上,我们可能需要实现可以移动的按钮等功能,最简单的方式是调用View.layout(),任何布局上的空间都可以支持这种方式移动,上下左右参数值是相对于父viewgroup而言的。 public voi...

yuanhotel ⋅ 2014/04/01 ⋅ 0

小蚂蚁学习C语言(36)——题目——字符串的倒置

题目要求: 先设计一个函数fun(char s)把字符串中的内容逆置。实现在主函数中随机输入一个字符串,调用函数fun完成字符串内容逆置后,将字符串输出。 例如:字符串中原有的内容为:gfedcba...

嗜学如命的小蚂蚁 ⋅ 2016/01/27 ⋅ 0

一个可拖拽,移动,自由组合子控件的视图控件,让开发更简单

今天给大家推荐一个自由拖拽,自由组合的控件,这个控件是我自定义写的。通过它,我们可以自由拖拽,自由组合实现一个界面,满足一个用户自由组合界面的需求。这里不是通过自由拖拽控件,来快...

涩郎 ⋅ 2017/04/18 ⋅ 0

Android "多方向"抽屉

在android上要实现类似Launch的抽屉效果,大家一定首先会想起SlidingDrawer。SlidingDrawer是android官方控件之一,本文的主角不是它,而是民间的控件工具集合~~~android-misc-widgets。and...

z.net ⋅ 2013/01/17 ⋅ 0

android bringToFront()

ViewGroup中bringToFront深入解析:http://blog.csdn.net/jy03773322/article/details/6561020 bringToFront的意外发现:http://www.cnblogs.com/zhainanJohnny/articles/3292563.html andr......

智能小松鼠 ⋅ 2015/09/29 ⋅ 0

从右侧滑出的遮盖型SlidingMenu

最近根据项目的要求,需要实现从右侧滑出的slidingmenu,且原有界面不能移动,直接被滑出的菜单覆盖。查了相关资料和开源代码,后根据http://www.oschina.net/code/snippet21935619035此文章...

cywaker ⋅ 2013/11/28 ⋅ 1

小伙伴们 C# winform 如何处理窗口覆盖着问题呢??

private void buttonPIDgraph_Click(object sender, EventArgs e) { Form3 newform = new Form3(); newform.Show(); newform.BringToFront(); } 明明就bringtofront但还是在后面,这个问题怎......

diandian123 ⋅ 2014/01/22 ⋅ 5

九宫格小游戏源码分享

九宫格小游戏,可从本地图库载入一张图片,填充到9个ImageView,另涉及Timer计时、图库控件。 每个格子都是相同的控件,动态添加到首页中的,在初始化后,响应touch事件,之后通过多次消息传...

jonh_felix ⋅ 2016/02/25 ⋅ 1

listview怎么顶置一条消息?

/** 删除的监听 @Overridepublic void onClick(View v) {// TODO Auto-generated method stubmMessageItems.remove(getItem(position));SlideAdapter.this.notifyDataSetChanged();}}); 置顶......

打酱油的coding ⋅ 2014/04/02 ⋅ 1

没有更多内容

加载失败,请刷新页面

加载更多

下一页

Jenkins实践3 之脚本

#!/bin/sh# export PROJ_PATH=项目路径# export TOMCAT_PATH=tomcat路径killTomcat(){pid=`ps -ef | grep tomcat | grep java|awk '{print $2}'`echo "tom...

晨猫 ⋅ 今天 ⋅ 0

Spring Bean的生命周期

前言 Spring Bean 的生命周期在整个 Spring 中占有很重要的位置,掌握这些可以加深对 Spring 的理解。 首先看下生命周期图: 再谈生命周期之前有一点需要先明确: Spring 只帮我们管理单例模...

素雷 ⋅ 今天 ⋅ 0

zblog2.3版本的asp系统是否可以超越卢松松博客的流量[图]

最近访问zblog官网,发现zlbog-asp2.3版本已经进入测试阶段了,虽然正式版还没有发布,想必也不久了。那么作为aps纵横江湖十多年的今天,blog2.2版本应该已经成熟了,为什么还要发布这个2.3...

原创小博客 ⋅ 今天 ⋅ 0

聊聊spring cloud的HystrixCircuitBreakerConfiguration

序 本文主要研究一下spring cloud的HystrixCircuitBreakerConfiguration HystrixCircuitBreakerConfiguration spring-cloud-netflix-core-2.0.0.RELEASE-sources.jar!/org/springframework/......

go4it ⋅ 今天 ⋅ 0

二分查找

二分查找,也称折半查找、二分搜索,是一种在有序数组中查找某一特定元素的搜索算法。搜素过程从数组的中间元素开始,如果中间元素正好是要查找的元素,则搜素过程结束;如果某一特定元素大于...

人觉非常君 ⋅ 今天 ⋅ 0

VS中使用X64汇编

需要注意的是,在X86项目中,可以使用__asm{}来嵌入汇编代码,但是在X64项目中,再也不能使用__asm{}来编写嵌入式汇编程序了,必须使用专门的.asm汇编文件来编写相应的汇编代码,然后在其它地...

simpower ⋅ 今天 ⋅ 0

ThreadPoolExecutor

ThreadPoolExecutor public ThreadPoolExecutor(int corePoolSize, int maximumPoolSize, long keepAliveTime, ......

4rnold ⋅ 昨天 ⋅ 0

Java正无穷大、负无穷大以及NaN

问题来源:用Java代码写了一个计算公式,包含除法和对数和取反,在页面上出现了-infinity,不知道这是什么问题,网上找答案才明白意思是负的无穷大。 思考:为什么会出现这种情况呢?这是哪里...

young_chen ⋅ 昨天 ⋅ 0

前台对中文编码,后台解码

前台:encodeURI(sbzt) 后台:String param = URLDecoder.decode(sbzt,"UTF-8");

west_coast ⋅ 昨天 ⋅ 0

实验楼—MySQL基础课程-挑战3实验报告

按照文档要求创建数据库 sudo sercice mysql startwget http://labfile.oss.aliyuncs.com/courses/9/createdb2.sqlvim /home/shiyanlou/createdb2.sql#查看下数据库代码 代码创建了grade......

zhangjin7 ⋅ 昨天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部