unit reLang;
interface
uses Windows, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, SysUtils;
type
TLangBox = class(TForm)
OKButton: TButton;
Panel1: TPanel;
Copyright: TLabel;
LanguageBox: TComboBox;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
LangBox: TLangBox;
procedure ShowLangBox;
implementation
{$R *.dfm}
const
SCopyright = 'Copyright © 1996, 1998-2002 Borland International';
procedure ShowLangBox;
begin
with TLangBox.Create(Application) do
try
ShowModal;
finally
Free;
end;
end;
procedure TLangBox.FormCreate(Sender: TObject);
begin
Caption := Format('Lang %s', [Application.Title]);
CopyRight.Caption := SCopyRight;
end;
end.
¤ Dauer der Verarbeitung: 0.19 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|