android 如何让edittext控件显示边框

Posted 2023-04-11

    editText控件，边框其实是背景决定的，所以如果你的editText没有边框，可以通过以下两种方式解决：

给editText设置一个带边框的背景，可以是shape绘制一个corner和solid，也可以是用一个切好的.9图。

你应该是用的主题不对，把application的主题改成android:Theme.Light.NoTitleBar，editText的样式应该是有边框的那种了。

参考技术A 把下面的代码保存到res/drawable/et.xml，在layout中的EditText添加属性android:background="@drawable/et"
et.xml↓代码
<?xml version="1.0" encoding="utf-8"?>
<layer-list
xmlns:android="http://schemas.android.com/apk/res/android">
<item>
<shape
xmlns:android="http://schemas.android.com/apk/res/android"
android:shape="rectangle">
<solid
android:color="#EFEFEF"/>  
<corners
android:bottomRightRadius="5dip"
android:bottomLeftRadius="5dip"
android:topLeftRadius="5dip"
android:topRightRadius="5dip"/>
<stroke
android:width="0.5px"
android:color="#505050"/>
</shape>
</item>
</layer-list> 参考技术B <EditText
android:id="@+id/sample_edit_text0"
android:layout_width="fill_parent"
android:layout_height="wrap_content"
android:text="简单的EditText输入框"/>
这样不就有边框么~~~~本回答被提问者和网友采纳 参考技术C edittext本身是有边框的，要显示需要加聚焦属性或者加背景素材

在delphi中，在运行时如何让拖动的控件显示在最上方？

比如窗体上有panel1、panel2、panel3三个控件。可以拖动panel1到panel2上，也可以拖动panel2到panel1上。总之，可以让拖动那个控件能够位于其他的控件上方，而不是被别的控件遮住了。

参考技术A 我也最近才实现了这个功能，可以说是MPI窗口！
用PageControl控件可以实现，你把窗体的边框设为无边框，打开的时候最大化，每打开一个窗体就在主窗体的PageControl上面新建一个标签页，标签显示窗体的Caption属性，并把窗体的父控件设标签页，再在PageControl的标签双击事件中写入双击可以关闭当前标签页的事件就可以了！ 参考技术B (Sender as TPanel).BringToFront; 参考技术C 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本回答被提问者采纳 参考技术D 去看下万一博客吧.
有这样的一个实类!