怪怪怪！不信你试试！
试试这个原代码，同样的代码，用button和菜单发出命令居然实现不同，而且，程序都无法实现预期功能：如改变选中的字体样式等，为什么？请解释。
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
if(FontDialog1->Execute()==True)
{
RichEdit1->SelAttributes->Style=FontDialog1->Font->Style;
RichEdit1->SelAttributes->Size=FontDialog1->Font->Size;
RichEdit1->SelAttributes->Name=FontDialog1->Font->Name;
RichEdit1->SelAttributes->Color=FontDialog1->Font->Color;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::fontset1Click(TObject *Sender)
{
if(FontDialog1->Execute()==True)
{
RichEdit1->SelAttributes->Style=FontDialog1->Font->Style;
RichEdit1->SelAttributes->Size=FontDialog1->Font->Size;
RichEdit1->SelAttributes->Name=FontDialog1->Font->Name;
RichEdit1->SelAttributes->Color=FontDialog1->Font->Color;
}
}
//---------------------------------------------------------------------------
问题点数：50、回复次数：10Top
1 楼Dinkar（死不了）回复于 2001-01-01 20:56:00 得分 0
简单的把代码改一下在试看看啊
void __fastcall TForm1::fontset1Click(TObject *Sender)
{
BitBtn1Click(this);
}
Top
2 楼Winsky（bcb_user@sina.com）回复于 2001-01-02 08:38:00 得分 0
你的输入焦点跑了。Top
3 楼Wingsun（孙春阳）回复于 2001-01-02 11:40:00 得分 0
对，就是你的输入焦点跑了。你要改一下你的RichiEdit的属性设置了。Top
4 楼wunglee（寂寞让我如此努力）回复于 2001-01-02 13:27:00 得分 0
怎么改？具体点，另外，为什么字体样式设置不起作用？
附上头文件！
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Buttons.hpp>
#include <ComCtrls.hpp>
#include <Dialogs.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TRichEdit *RichEdit1;
TBitBtn *BitBtn1;
TFontDialog *FontDialog1;
TMainMenu *MainMenu1;
TMenuItem *fontset1;
void __fastcall BitBtn1Click(TObject *Sender);
void __fastcall fontset1Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
去掉与问题无关的内容后源文件为：
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
if(FontDialog1->Execute()==True)
{
RichEdit1->SelAttributes->Style=FontDialog1->Font->Style;
RichEdit1->SelAttributes->Name=FontDialog1->Font->Name;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::fontset1Click(TObject *Sender)
{
if(FontDialog1->Execute()==True)
{
RichEdit1->SelAttributes->Style=FontDialog1->Font->Style;
RichEdit1->SelAttributes->Name=FontDialog1->Font->Name;
}
}
//---------------------------------------------------------------------------Top
5 楼babysloth（小懒虫虫）回复于 2001-01-02 17:03:00 得分 0
我不信，也试过了，没问题啊，能把把您的源程序发给我吗？Top
6 楼wunglee（寂寞让我如此努力）回复于 2001-01-09 11:58:00 得分 0
程序早已发给你了，怎么啦？没有回音？Top
7 楼babysloth（小懒虫虫）回复于 2001-01-09 17:33:00 得分 0
信箱出问题了,抱歉,收不到信.发到sloth@myrice.com吧,谢谢.Top
8 楼Darkblack（bloodmud）回复于 2001-01-09 23:19:00 得分 50
Font->Style的设置是有这个问题，如果出现这种情况，用一个中间变量即可 if(FontDialog1-FontDialog1->Execute()==True)
{
TFontStyles style;
style = FontDialog1->Font->Style;
RichEdit1->SelAttributes->Style = style;
RichEdit1->SelAttributes->Name = FontDialog1->Font->Name;
}
Top
9 楼wunglee（寂寞让我如此努力）回复于 2001-01-10 08:54:00 得分 0
我也用其他方式解决了这个问题：
if(FontDialog1->Execute()==True)
RichEdit1->SelAttributes->Assign(FontDialog1->Font);
可是，我认为重要的不是在于寻求一个绕过问题的解决方案，而是知道原理，将来才可以借鉴于其他的方面，对吗？
哪位高手能说出个原由？一定加分！！！Top
10 楼nicolas（nicolas）回复于 2001-01-10 10:17:00 得分 0
你用不着按钮与菜单写两个事件,其实在你的菜单的OnClick事件中选择BitBtn1Click事件就可以
了只是你先要写BitBtn1Click事件.Top
