delphi 按钮可否去掉选中效果? 类似E语言的哪种按钮,就是去掉delphi按钮点击后的黑色边框(default=true那个效果),使按钮点击后也不显示黑边? 。
解决方案 »
- 从今天开始继续学习DELPHI编程,还请大家多多赐教
- 关于DBLookupCombobox的一些问题,顺便散分
- 帮忙看看这个程序
- ADO连接ACCESS数据库的简单问题!!!!!!!!!!!!!
- 哈尔滨三创自控系统有限公司诚聘
- 怎样同时查询两个Access数据库?
- 和Delphi相关的数据库!在线等待,下载之后立即结贴。
- 怎样操作EXCEL表?!急!!!!!!!!!!!!
- InternetExpress发布程序,各位大虾帮帮忙100分送上!在线等待!解决马上给分
- 送分,谁来关心一下我的贴子,我就送分!
- 过滤网址的BHO插件 帮忙编译下!
- 怎么实现运行光盘上的程序,然后光盘弹出后,程序还能继续运行?
button1.Visible := true;ok!
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
SendMessage(Button1.Handle, BM_SETSTYLE, WS_POPUP, 1);
end;
procedure TButton.SetButtonStyle(ADefault: Boolean);
const
BS_MASK = $000F;
var
Style: Word;
begin
if HandleAllocated then
begin
if ADefault then Style := BS_DEFPUSHBUTTON else Style := BS_PUSHBUTTON;
if GetWindowLong(Handle, GWL_STYLE) and BS_MASK <> Style then
SendMessage(Handle, BM_SETSTYLE, Style, 1);
end;
end;
VCL 源码,
SendMessage(Button1.Handle, BM_SETSTYLE, WS_POPUP, 1);
这句就可以了,其实就是设置他样式