1
Delphi技术
日志阅读：2742
日志评论：0

根据位图做出漂亮的不规则FORM

该日志由 samool 发表于 2007-02-08 4:30 PM

演示代码，可以根据位图做出漂亮的不规则FORM，大家可以下载演示程序研究一下.

» 阅读该日志全文...

2
Delphi技术
日志阅读：2660
日志评论：0

交替图

该日志由 samool 发表于 2007-02-07 1:47 PM

procedure TMainForm.btnSendPhotoMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if imgSelectPhotot2.Tag mod 2 <> 1 then
  begin
    imgSelectPhotot2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Ico\SoftImage\a5_03.jpg');
    imgSelectPhotot2.Tag := 5;
  end;

  if TImage(Sender).Tag mod 2 = 0 then exit;
  TImage(Sender).Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Ico\SoftImage\b_03_2.jpg');
  TImage(Sender).Tag := 0;
end;

Total:12‹ Prev12