ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

I'll Be Back 2011/05/16(ｿｽｿｽ) 13:05:39

ｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽﾜゑｿｽｿｽB

C++ Builder 6.0ｿｽﾉつゑｿｽｿｽﾄのゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽ
ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽ{ｿｽbｿｽNｿｽXｿｽﾌキｿｽｿｽｿｽｿｽｿｽZｿｽｿｽｿｽ{ｿｽ^ｿｽｿｽｿｽﾌキｿｽｿｽｿｽvｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾆ趣ｿｽｿｽﾌ厄ｿｽｿｽOｿｽﾉでゑｿｽｿｽｿｽﾎ変更ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ考ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍ別記ｿｽﾌとゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾅゑｿｽｿｽｿｽ
ｿｽLｿｽｿｽｿｽｿｽｿｽZｿｽｿｽｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽTMsgDlgButtonsｿｽｿｽﾌ仕ｿｽlｿｽﾉゑｿｽｿｽ
"ｿｽLｿｽｿｽｿｽｿｽｿｽZｿｽｿｽ"ｿｽﾆ表ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌキｿｽｿｽｿｽvｿｽVｿｽｿｽｿｽｿｽｿｽｿｽ"ｿｽLｿｽｿｽｿｽｿｽｿｽZｿｽｿｽ"ｿｽｿｽ痰ｦｿｽｿｽ"ｿｽｿｽｿｽｿｽｿｽｿｽ‾"ｿｽｿｽｿｽA
ｿｽｿｽｿｽRｿｽﾉ変更ｿｽｿｽｿｽ驍ｱｿｽﾆは可能ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB

ｿｽiｿｽ¥ｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽj
MessageDlg("ｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ?"
,mtConfirmation,TMsgDlgButtons()<<mbOK<<mbCancel,0) == mrCancel)
{
 ｿｽiｿｽﾈ暦ｿｽｿｽj
}

ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽAｿｽｿｽｿｽpｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH 2011/05/16(ｿｽｿｽ) 19:30:52

ｿｽｿｽｿｽｿｽﾍ擾ｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽADelphiｿｽﾅ良ゑｿｽｿｽｿｽｿｽ ｿｽQｿｽﾌ趣ｿｽﾞは難ｿｽﾂ。

(ｿｽﾂぶゑｿｽｿｽｿｽ)  ｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽ直接擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

ｿｽLｿｽｿｽｿｽｿｽｿｽZｿｽｿｽｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽCaptionｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ¥ｿｽ[ｿｽX(Consts.pas)ｿｽｿｽ
ｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽﾌフｿｽHｿｽｿｽｿｽ_ｿｽﾉコｿｽsｿｽ[ｿｽｿｽｿｽﾄ、resourcestringｿｽｿｽｿｽﾌ該ｿｽｿｽｿｽｿｽｿｽ髟ｶｿｽｿｽｿｽｿｽｿｽﾏ更ｿｽB

resourcestring
//  SMsgDlgCancel = 'ｿｽLｿｽｿｽｿｽｿｽｿｽZｿｽｿｽ';
    SMsgDlgCancel = 'ｿｽｿｽｿｽｿｽｿｽｿｽ‾';


(ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ)  ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅ変更ｿｽｿｽｿｽｿｽB

  private
    procedure SpecialMsg(var Msg: TMessage); message WM_APP+100;
  end;

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
  PostMessage(Handle, WM_APP+100, 0, Integer(PChar('ｿｽｿｽｿｽｿｽｿｽｿｽ‾')));
  MessageDlg('ｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈ？', mtConfirmation, [mbOk, mbCancel], 0);
end;

procedure TForm1.SpecialMsg(var Msg: TMessage);
var
  hwP, hwC: HWND;
begin
  hwP := FindWindow(nil, 'ｿｽmｿｽF');
  hwC := FindWindowEx(hwP, 0, nil, 'ｿｽLｿｽｿｽｿｽｿｽｿｽZｿｽｿｽ');
//SendMessage(hwC, WM_SETTEXT, 0, Integer(PChar('ｿｽｿｽｿｽｿｽｿｽｿｽ‾')));
  SendMessage(hwC, WM_SETTEXT, 0, Msg.LParam);
end;

ｿｽﾛむぽゑｿｽ 2011/05/17(ｿｽｿｽ) 08:50:10

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽDelphiｿｽﾅゑｿｽｿｽｿｽｿｽB

unit ｿｽﾄゑｿｽｿｽﾆゑｿｽｿｽﾈｿｽｿｽjｿｽbｿｽg;

interface

uses
  Dialogs;

function MessageDlg(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;

implementation

uses
  Controls, Forms, StdCtrls;

function MessageDlg(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
var
  dlg: TForm;
  i: Integer;
begin
  dlg := CreateMessageDialog(Msg, DlgType, Buttons);
  try
    dlg.HelpContext := HelpCtx;
    dlg.Position := poScreenCenter;
    for i := 0 to dlg.ComponentCount -1 do begin
      if dlg.Components[i] is TButton and
 (TButton(dlg.Components[i]).ModalResult = mrCancel) then begin
TButton(dlg.Components[i]).Caption := 'ｿｽｿｽｿｽｿｽｿｽｿｽ‾';
Break;
      end;
    end;
    Result := dlg.ShowModal;
  finally
    dlg.Free;
  end;
end;

end.

I'll Be Back 2011/05/17(ｿｽｿｽ) 11:22:17

ｿｽAｿｽｿｽｿｽpｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽHｿｽｿｽｿｽｿｽAｿｽﾛむぽむゑｿｽｿｽありがｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

delphiｿｽｿｽC++ Builderｿｽﾌ趣ｿｽｿｽｿｽｿｽXｿｽ^ｿｽCｿｽｿｽｿｽﾍ意外ｿｽﾆ違うｿｽﾌでゑｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽhｿｽoｿｽCｿｽXｿｽｿｽﾜめて、
ｿｽﾅ終ｿｽIｿｽﾉは会ｿｽｿｽLｿｽﾌようｿｽﾉ新ｿｽKｿｽﾉダｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽ成ｿｽｿｽｿｽ驍ｱｿｽﾆで、
ｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽﾏ更ｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾎ会ｿｽｿｽｿｽｿｽ驍ｱｿｽﾆにゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽiｿｽAｿｽｿｽｿｽpｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽHｿｽｿｽｿｽかゑｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ¥ｿｽ[ｿｽX(Consts.pas)ｿｽﾍ趣ｿｽｿｽｿｽC++ Builderｿｽﾂ具ｿｽｿｽﾅは鯉ｿｽｿｽﾂゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽj

 ｿｽ@ TForm *dlg;
    TButton *btn;
    dlg = CreateMessageDialog("ｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ?""
                       ,mtConfirmation
                       ,TMsgDlgButtons() << mbOK << mbCancel);
    btn = (TButton *)dlg->FindComponent("Cancel");
    btn->Caption = "ｿｽｿｽｿｽｿｽｿｽｿｽ‾";
    dlg->ShowModal();
    if(dlg!=NULL) delete dlg;

ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ (_ _)

ｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾌトｿｽbｿｽvｿｽｿｽ