Utilizando Enter com Tab

Posted: terça-feira, 22 de junho de 2010 by Wesley dos Santos Elbacha in Marcadores:
0

procedure Tform1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then
btnSair.OnClick(Self);

if Key = #13 then
Begin
Key:= #0;
Perform(WM_NEXTDLGCTL,0,0);
end;
end;

Criando Edits em tempo de execução

Posted: by Wesley dos Santos Elbacha in Marcadores:
0

1) Clique no botão após ter compilado o programa.
 2) Serão criados 10 edits em tempo de execução após o clique no Button1.

3) Codificação do botão (Código Fonte):
procedure TForm1.Button1Click(Sender: TObject);
var
V_Edit : TEdit;
i, V_Top :integer;
begin
i:= 0;
V_Top := 0;
for i:= 1 to 10 do
begin
V_Edit := TEdit.Create(Self);
V_Edit.Name := 'Edt'+IntToStr(i);
V_Edit.Top := V_Top;
V_Edit.Parent := Form1;
V_Top := V_Top + 20;
TEdit(Components[i]).Clear;
TEdit(Components[i]).Text := 'Exemplo '+IntToStr(i);
end;
end;