cmdwin.pas

来自「Yahoo Messenger for Mobile」· PAS 代码 · 共 38 行

unit cmdwin;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Ychatu1,
  SkinCtrls, SkinBoxCtrls;

type
  TCmdsBox = class(TForm)
    spSkinListBox1: TspSkinListBox;
    procedure spSkinListBox1ListBoxDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CmdsBox: TCmdsBox;

implementation

{$R *.DFM}

procedure TCmdsBox.spSkinListBox1ListBoxDblClick(Sender: TObject);
Var
 tmp: String;
begin
 Tmp:=SpSkinListBox1.Items[SpSkinListBox1.ItemIndex];
 If Tmp<>'' Then
   Form1.Richedit2.SelText:=Tmp;
 Form1.Richedit2.SetFocus;
 Close;
end;

end.