【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“DisplayU.pas”一文,供大家参考学习
unit DisplayU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtDlgs, ExtCtrls, Buttons;
type
TDisplayForm = class(TForm)
GroupBox1: TGroupBox;
Button1: TButton;
Image1: TImage;
OpenPictureDialog1: TOpenPictureDialog;
GroupBox2: TGroupBox;
ComboBox1: TComboBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure ComboBox1Change(Sender: TObject);
procedure DisplayFormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DisplayForm: TDisplayForm;
implementation
{$R *.dfm}
procedure TDisplayForm.ComboBox1Change(Sender: TObject);
begin
ComboBox1.Text := ComboBox1.SelText;
end;
procedure TDisplayForm.DisplayFormShow(Sender: TObject);
begin
ComboBox1.Text := ComboBox1.items[1];
end;
procedure TDisplayForm.Button1Click(Sender: TObject);
begin
//Make sure you load a "correct" toolbutton, you fail later when
//you try to add it to the IDE's image list.
//The Open dialog is set to the shared borland images directory.
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.filename);
end;
end.