5.1.3 UnStr модулінің мәтіні
Unit UnStr;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;
type
TForm1 = class(TForm)
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
ComboBox1: TComboBox;
Label1: TLabel;
procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
procedure ComboBox1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Implementation
{$R *.DFM}
// Форманы активтеу оқиғасын өңдеу
procedure TForm1.FormActivate(Sender: TObject);
begin
ComboBox1.SetFocus; // ComboBox1 енгізу фокусының ауысуы
end;
// Enter пернесін басу және символдарды енгізу оқиғасын өңдеу
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then // Enter пернесі басылған болса, онда
begin //редактор өрісінен жол
ComboBox1.Items.Add(ComboBox1.Text); // таңдау тізіміне апарылады
ComboBox1.Text:=''; // редакциялау терезесінің тазалануы
end; end;
//таңдау тізімінде "тышқан" пернесін басу оқиғасын өңдеу
Достарыңызбен бөлісу: |