Delphi
小菜根win
技术爱好者
展开
-
简单的登录界面
procedure TForm1.FormCreate(Sender: TObject); begin Label3.Caption := '用户名: Admin' + #13 + '密码: 123'; end; procedure TForm1.UserTxtKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); beg转载 2014-02-15 11:16:19 · 797 阅读 · 0 评论 -
MessageDlg用法
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; B原创 2014-03-15 11:21:10 · 1398 阅读 · 0 评论