Программа кодының терезесі. Delphi ортасы программист жұмысының ӛте жоғары тиімділігін қамтамасыз ететін орта



Pdf көрінісі
бет54/122
Дата27.03.2022
өлшемі1,24 Mb.
#28970
түріПрограмма
1   ...   50   51   52   53   54   55   56   57   ...   122
Байланысты:
Дәріс (2)

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; 

//таңдау тізімінде  "тышқан" пернесін басу оқиғасын өңдеу 



Достарыңызбен бөлісу:
1   ...   50   51   52   53   54   55   56   57   ...   122




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет