mypqx的专栏

1. Image效果1：拖动图片移动窗体 procedure TFormMain.Image_BackgroundMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin //=== 窗体跟着图片移动 效果 === if (Button = mbLeft)

关键代码： TUserStatus = (usOnline, usOffline, usBusy, usLeave); POnlineUser = ^TOnlineUser; TOnlineUser = record Name: string; IP: string; Status: TUserStatus; end; //=== TL