实现像qq的聊天记录够展开和收缩的效果

在窗體先放二個richedit（按收信息框、發送信息框），然后再放一個memo(聊天記錄)屬性Visible設為false，Form的AutoSize設為true

procedure   TForm1.Button1Click(Sender:   TObject);//　聊天記錄按紐
begin
    memo1.Visible:=not   memo1.Visible;
end;

嘿，不知道這樣的效果能不能滿足樓主的需求~~

转自：http://topic.csdn.net/t/20041011/10/3442962.html