如何将inputbox的按钮变中文(100分)

sntmpl · 2003-01-13

用inputbox时显示的按钮为ok...如何能让其显示为“确定”.....

小海 · 2003-01-13

普通按钮<input name="submit" type="button" value="确定"> 提交按钮<input name="submit" type="submit" value="确定">

sntmpl · 2003-01-13

什么意思，怎么做

枪手哈特 · 2003-01-13

老兄，你说的是html，人家问的是delphi啊 自己修改一下dialogs的TButton.Create部分，改成自己想要的就行了

52free · 2003-01-13

小海兄讲的是在网页里面显示一个按钮并在按钮上显示名称 你讲的是不是在delphi中改变系统的默认的显示，可能需要改vcl吧 我现在没有delphi不好做试验

sntmpl · 2003-01-13

请说的详细点好吗

jlutt-sadan · 2003-01-13

改原文件就可以了不过最好还是自己照着写一个 function TFrmZD.MyInputQuery(const ACaption, APrompt: string;   var Value: string): Boolean;   function MyGetAveCharSize(Canvas: TCanvas): TPoint;   var     I: Integer;     Buffer: array[0..51] of Char;   begin     for I := 0 to 25 do Buffer := Chr(I + Ord('A'));     for I := 0 to 25 do Buffer[I + 26] := Chr(I + Ord('a'));     GetTextExtentPoint(Canvas.Handle, Buffer, 52, TSize(Result));     Result.X := Result.X div 52;   end; var   Form: TForm;   Prompt: TLabel;   Edit: TEdit;   DialogUnits: TPoint;   ButtonTop, ButtonWidth, ButtonHeight: Integer; begin   Result := False;   Form := TForm.Create(Application);   with Form do   try     Font.Assign(FrmZD.Font);     Canvas.Font := Font;     DialogUnits := MyGetAveCharSize(Canvas);     BorderStyle := bsDialog;     Caption := ACaption;     ClientWidth := MulDiv(180, DialogUnits.X, 4);     ClientHeight := MulDiv(63, DialogUnits.Y, 8);     Position := poScreenCenter;     Prompt := TLabel.Create(Form);     with Prompt do     begin       Parent := Form;       AutoSize := True;       Left := MulDiv(8, DialogUnits.X, 4);       Top := MulDiv(8, DialogUnits.Y, 8);       Caption := APrompt;     end;     Edit := TEdit.Create(Form);     with Edit do     begin       Parent := Form;       Left := Prompt.Left;       Top := MulDiv(19, DialogUnits.Y, 8);       Width := MulDiv(164, DialogUnits.X, 4);       MaxLength := 255;       Text := Value;       SelectAll;     end;     ButtonTop := MulDiv(41, DialogUnits.Y, 8);     ButtonWidth := MulDiv(50, DialogUnits.X, 4);     ButtonHeight := MulDiv(14, DialogUnits.Y, 8);     with TButton.Create(Form) do     begin       Parent := Form;       Caption := '&Egrave;·&para;¨';       ModalResult := mrOk;       Default := True;       SetBounds(MulDiv(38, DialogUnits.X, 4), ButtonTop, ButtonWidth,         ButtonHeight);     end;     with TButton.Create(Form) do     begin       Parent := Form;       Caption := '&Egrave;&iexcl;&Iuml;&ucirc;';       ModalResult := mrCancel;       Cancel := True;       SetBounds(MulDiv(92, DialogUnits.X, 4), ButtonTop, ButtonWidth,         ButtonHeight);     end;     if ShowModal = mrOk then     begin       Value := Edit.Text;       Result := True;     end;   finally     Form.Free;   end; end; function TFrmZD.MyInputBox(const ACaption, APrompt, ADefault: string): string; begin   Result := ADefault;   MyInputQuery(ACaption, APrompt, Result); end; 用的时候直接用自己的函数就行了，和InputBox InputQuery一样的用法

枪手哈特 · 2003-01-13

就是啊，把dialogs.pas里面inputquery拷出来改一下不就得了，不光可以改caption,还有font 啊什么的，或者干脆改成speedbutton，再加上icon，总之随便改啦

delphiwbh · 2003-01-13

将vcl中的consts中的对应项改为中文

ugvanxk · 2003-01-13

弄个新窗体得了

sntmpl · 2003-01-13

jlutt-sadan的方法通过了，我也学了一点非常感谢，其他人只能给点鼓励了

如何将inputbox的按钮变中文(100分)

sntmpl

Unregistered / Unconfirmed

小海

Unregistered / Unconfirmed

sntmpl

Unregistered / Unconfirmed

枪手哈特

Unregistered / Unconfirmed

52free

Unregistered / Unconfirmed

sntmpl

Unregistered / Unconfirmed

jlutt-sadan

Unregistered / Unconfirmed

枪手哈特

Unregistered / Unconfirmed

delphiwbh

Unregistered / Unconfirmed

ugvanxk

Unregistered / Unconfirmed

sntmpl

Unregistered / Unconfirmed

Similar threads