Бағдарламаның листингі:
unit Unitl; interface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons;
TForm1 = class(TForm) Labell: TLabel; Buttonl: TButton; BitBtnl: TBitBtn;
procedure ButtonlClick(Sender: TObject);
private
{Private declarations }
public
{Public declarations } end;
var
Forml: TForml;
implementation
{$R *.DFM)
procedure TForml.ButtonlClick(Sender: TObject);
begin
Label1.Caption:= 'Бұл жұмысымыздың соңы болмасын!';
end;
end.
№ 4. Пішіннің тақырыбын өзгерту
Жұмыстың мақсаты – Мына әректтерді орындайтын бағдарлама құру: 1. Бағдарламаны іске қосқанда мәтіндік өріске мәтін шығару.
Достарыңызбен бөлісу: |