ComboBox1: TComboBox;
Button6: TButton;
Label3: TLabel;
- Label4: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure ComboBox1Select(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
+ procedure Button5Click(Sender: TObject);
private
{ Private \90é\8c¾ }
public
end;
end;
+procedure TForm1.Button5Click(Sender: TObject);
+begin
+ Edit4.Text := '\82Æ\82é\82Ë\81`\82Ç\8d\86';
+ Memo1.Lines.Text :=
+ '<h1 style=color:maron;text-align:center;font-style:italic>\82Æ\82é\82Ë\81`\82Ç\8d\86</h1>';
+ Edit3.Text := '\94n\8e,\88¢\95Û,\8e\80\82Ë,\8eE\82·';
+ Edit6.Text := 'admin';
+ ComboBox1.Text := 'info';
+ UpDown1.Position := 30;
+ UpDown1Click(nil);
+ CheckBox1.Checked := false;
+ CheckBox1Click(nil);
+ FDTable2.Post;
+ FDTable2.Edit;
+end;
+
procedure TForm1.Button6Click(Sender: TObject);
function hash(str: string): string;
begin