Delphi Sources

Горячие клавиши для SpeedButton и переход по полям ввода через Enter




Пропала собака. Особые приметы: Shift+2. Вознаграждение: Shift+4.


unit SKDemoF;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, SpecKey, Buttons;

type
  TForm1 = class(TForm)
    AccSpeed1: TAccSpeed;
    TabEdit1: TTabEdit;
    TabEdit2: TTabEdit;
    TabEdit3: TTabEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure AccSpeed1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.AccSpeed1Click(Sender: TObject);
begin
  ShowMessage ('Acc Speed Button pressed');
end;

end.

Загрузить исходный код проекта
Загрузить библиотеку с компонентами
Загрузить ещё одну библиотеку с компонентами





Похожие по теме исходники

Нейросеть для распознавания образов

Механизм станка качалки для нефти

Весы для взвешивания

Кувшины для воды

 

Доска для игры Реверси

lbSpeedButton

Проверка числового ввода

RSA шифрование через OpenSSL

 

Center Dialog




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте