Main.pas
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:2k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. unit Main;
  2. interface
  3. uses Qt, Classes, QGraphics, QForms, QControls,
  4.      StyleD, ListD, QStdCtrls, QExtCtrls;
  5. type
  6.   TForm1 = class(TForm)
  7.     Label1: TLabel;
  8.     Label2: TLabel;
  9.     Label3: TLabel;
  10.     Label4: TLabel;
  11.     Label5: TLabel;
  12.     Label6: TLabel;
  13.     StyleButton: TButton;
  14.     Bevel1: TBevel;
  15.     procedure LabelDoubleClick(Sender: TObject);
  16.     procedure LabelClick(Sender: TObject);
  17.     procedure StyleButtonClick(Sender: TObject);
  18.   private
  19.     { Private declarations }
  20.   public
  21.     { Public declarations }
  22.   end;
  23. var
  24.   Form1: TForm1;
  25. implementation
  26. {$R *.xfm}
  27. procedure TForm1.LabelDoubleClick(Sender: TObject);
  28. begin
  29.   with ListDial.Listbox1 do
  30.   begin
  31.     // select current the name in the listbox
  32.     ItemIndex := Items.IndexOf ((Sender as TLabel).Caption);
  33.     // show the modal dialog box, checking the return value
  34.     if (ListDial.ShowModal = mrOk) and (ItemIndex >= 0) then
  35.       // if OK, then copy the selected item of the list to the label
  36.       (Sender as TLabel).Caption := Items [ItemIndex];
  37.   end;
  38. end;
  39. procedure TForm1.LabelClick(Sender: TObject);
  40. var
  41.   I: Integer;
  42. begin
  43.   for I := 0 to ComponentCount - 1 do
  44.    if (Components[I] is TLabel) and
  45.        (Components[I].Tag = 1) then
  46.      TLabel (Components[I]).Font.Color := clBlack;
  47.   // set the color of the clicked label to red
  48.   (Sender as TLabel).Font.Color := clRed;
  49. end;
  50. procedure TForm1.StyleButtonClick(Sender: TObject);
  51. begin
  52.   // run modeless dialog
  53.   StyleDial.Show;
  54. end;
  55. end.