Tips dan Trik Delphi - Form

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if Key=VK_RETURN then
        sendmessage(handle,wm_nextdlgctl,0,0);
end;

atau juga bisa membuat sendiri seperti dibawah ini :

Function TFPelangganEntry.NextkeyEdit(var Key: Word; namakomponen : TEdit): Boolean;
begin
     if Key = VK_RETURN then
     begin
          if namakomponen.Enabled = True  then
             namakomponen.SetFocus;
     end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if not (key in ['0'..'9',#8,'.',',']) then
     Begin
          key := #0;
     End;
end;

Procedure TForm1.Transparan;
Begin
    AlphaBlend := true;
    AlphaBlendValue := 120;
End;

procedure TForm1.FormCreate(Sender: TObject);
begin
     Transparan;
end;

Procedure GeserPanel(NamaPanel : TPanel);
const
    SC_DragMove = $F012; {a magic number }
begin
    ReleaseCapture;
    NamaPanel.Perform(WM_SysCommand, SC_DragMove, 0);
End;