怪怪怪！不信你试试！

[wunglee]

试试这个原代码，同样的代码，用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;
}
}
//---------------------------------------------------------------------------

[「已注销」]

简单的把代码改一下在试看看啊

void __fastcall TForm1::fontset1Click(TObject *Sender)
{
BitBtn1Click(this);
}

[wunglee]

怎么改？具体点，另外，为什么字体样式设置不起作用？
附上头文件！

//---------------------------------------------------------------------------

#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;
}
}
//---------------------------------------------------------------------------

[babysloth]

我不信，也试过了，没问题啊，能把把您的源程序发给我吗？

[Winsky]

你的输入焦点跑了。

[Wingsun]

对，就是你的输入焦点跑了。你要改一下你的RichiEdit的属性设置了。

[babysloth]

信箱出问题了,抱歉,收不到信.发到[e-mail]吧,谢谢.

[Darkblack]

Font->Style的设置是有这个问题，如果出现这种情况，用一个中间变量即可 if(FontDialog1-FontDialog1->Execute()==True)
{
TFontStyles style;
style = FontDialog1->Font->Style;
RichEdit1->SelAttributes->Style = style;
RichEdit1->SelAttributes->Name = FontDialog1->Font->Name;
}

[wunglee]

程序早已发给你了，怎么啦？没有回音？

[wunglee]

我也用其他方式解决了这个问题：
if(FontDialog1->Execute()==True)
RichEdit1->SelAttributes->Assign(FontDialog1->Font);
可是，我认为重要的不是在于寻求一个绕过问题的解决方案，而是知道原理，将来才可以借鉴于其他的方面，对吗？
哪位高手能说出个原由？一定加分！！！

[nicolas]

你用不着按钮与菜单写两个事件,其实在你的菜单的OnClick事件中选择BitBtn1Click事件就可以
了只是你先要写BitBtn1Click事件.