/main.pas

 1unit main;
 2
 3interface
 4
 5uses
 6  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 7  Dialogs, StdCtrls;
 8
 9type
10  TForm1 = class(TForm)
11    Edit1: TEdit;
12    Memo1: TMemo;
13    ComboBox1: TComboBox;
14    procedure FormCreate(Sender: TObject);
15  private
16    procedure TornarTextoDoObjetoEmMaiusculas(Sender: TObject);
17  end;
18
19var
20  Form1: TForm1;
21
22implementation
23
24{$R *.dfm}
25
26procedure TForm1.TornarTextoDoObjetoEmMaiusculas(Sender: TObject);
27var
28  Edit    : TEdit     absolute Sender;
29  Memo    : TMemo     absolute Sender;
30  ComboBox: TComboBox absolute Sender;
31begin
32  if (Sender is TEdit) then
33  begin
34    Edit.Text := UpperCase(Edit.Text);
35  end
36  else if (Sender is TMemo) then
37  begin
38    Memo.Text := UpperCase(Memo.Text);
39  end
40  else if (Sender is TComboBox) and (ComboBox.Style = csDropDown) then
41  begin
42    ComboBox.Text := UpperCase(ComboBox.Text);
43  end;
44end;
45
46procedure TForm1.FormCreate(Sender: TObject);
47begin
48  Self.Edit1.OnChange     := TornaTextoEmMaiusculas;
49  Self.ComboBox1.OnChange := TornaTextoEmMaiusculas;
50  Self.Memo1.OnChange     := TornaTextoEmMaiusculas;
51end;
52
53end.
54