zt:delphi入門級資料: 3 使用對話方塊、剪貼簿
来源：互联网 发布：增值税发票软件下载 编辑：程序博客网 时间：2024/04/20 07:58
單元三、共同對話方塊與剪貼簿
3.1
使用共同對話方塊
- 常用的對話方塊
3.1.1
使用開檔共同對話方塊
- 製作開啟舊檔選項
- 加入
Procedure Tform1.Open1Click(Sender: TObject);
Begin
if OpenDialog1.Execute then
begin
RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
Caption := Format('%s - %s', [ExtractFileName(OpenDialog1.FileName), Application.Title]);
RichEdit1.SetFocus;
RichEdit1.Modified := False;
RichEdit1.ReadOnly := ofReadOnly in OpenDialog1.Options;
End;
end;
- 製作開啟新檔的選項
- 再開啟新檔的
procedure TForm1.New1Click(Sender: TObject);
begin
Caption := Format('%s - %s', [‘Untitled’, Application.Title]);
RichEdit1.Lines.Clear;
RichEdit1.Modified := False;
end;
- 共用程序
- 在表格的類別宣告的
Type
…
private
FfileName: String;
Procedure SetCaption(const FileName: String);
Public
{ Public declarations }
end;
- 在實作部份加入下面內容。
procedure Tform1.SetCaption(const FileName: String);
begin
FFileName := FileName;
Caption := Format('%s - %s', [ExtractFileName(FileName), Application.Title]);
end;
- 將原來的程序改為
Procedure Tform1.Open1Click(Sender: TObject);
Begin
if OpenDialog1.Execute then
begin
RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
SetCaption(OpenDialog1.FileName);
RichEdit1.SetFocus;
RichEdit1.Modified := False;
RichEdit1.ReadOnly := ofReadOnly in OpenDialog1.Options;
End;
end;
procedure Tform1.New1Click(Sender: TObject);
begin
SetCaption('Untitled');
RichEdit1.Lines.Clear;
RichEdit1.Modified := False;
end;
3.1.2
使用存檔共同對話方塊
- 製作儲存檔案的選項
procedure TForm1.Save1Click(Sender: TObject);
begin
if FFileName = 'Untitled' then
SaveAs1Click(Sender)
Else
begin
RichEdit1.Lines.SaveToFile(FFileName);
RichEdit1.Modified := False;
end;
end;
- 製作另存新檔的選項
- 選取檔案
procedure TForm1.SaveAs1Click(Sender: TObject);
begin
if not RichEdit1.Modified then exit;
SaveDialog1.FileName := FFileName+'.'+SaveDialog1.DefaultExt;
if SaveDialog1.Execute then
begin
if FileExists(SaveDialog1.FileName) then
if MessageDlg(Format('
是否要取代原有的檔案 %s', [SaveDialog1.FileName]),mtConfirmation, mbYesNoCancel, 0) <> idYes then Exit;
RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
SetCaption(SaveDialog1.FileName);
RichEdit1.Modified := False;
End;
end;
- 設定初始值：在表格的
procedure TForm1.FormCreate(Sender: TObject);
begin
OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0));
SaveDialog1.InitialDir := OpenDialog1.InitialDir;
SetCaption('Untitled');
end;
3.1.3
體貼的設計
在開新檔案或儲存檔案前，要先檢查程式是否被更改過，並做處理。
- 在SetCaption的宣告下面加一行IsSafe宣告。
…
private
FFileName: String;
procedure SetCaption(const FileName: String);
procedure IsSafe;
public
{ Public declarations }
end;
- 在實作部份加上下面內容。
procedure TForm1.IsSafe;
var
Resp: Integer;
begin
if not RichEdit1.Modified then Exit;
Resp := MessageDlg(Format('
是否要把更動儲存到檔案 %s?', [FFileName]),mtConfirmation, mbYesNoCancel, 0);
case Resp of
idYes: Save1Click(Self);
idNo: {
不用做什麼處理 };idCancel: Abort;
end;
end;
- 雙擊
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
try
IsSafe;
except
CanClose := False;
end;
end;
- 在開檔和存檔的部份也加上
3.2
使用剪貼簿
3.2.1
使用Tclipboard物件
- 剪貼簿的使用宣告
- 找到該單元的
說明
SelText
目前使用者所選取的文字
SelLength
目前使用者所選取的文字的長度
SelStart
目前使用者所選取的文字的起使位置
SelectAll
在
RichEdit中的所有文字內容ClearSelection
清除目前使用者所選取的文字
CutToClipboard
將所選取的文字剪下，並複製到剪貼簿
CopyToClipboard
將所選取的文字複製到剪貼簿
PasteFromClipboard
將剪貼簿的內容複製到游標所在的位置
- 製作編輯選單
- 選取編輯
procedure TForm1.Cut1Click(Sender: TObject);
begin
RichEdit1.CutToClipboard;
end;
- 選取編輯
procedure TForm1.Copy1Click(Sender: TObject);
begin
RichEdit1.CopyToClipboard;
end;
- 選取編輯
procedure TForm1.Paste1Click(Sender: TObject);
begin
RichEdit1.PasteFromclipboard;
end;
- 選取編輯
procedure TForm1.Undo1Click(Sender: TObject);
begin
with RichEdit1 do
if HandleAllocated then SendMessage(Handle, EM_UNDO, 0, 0);
end;
- 選取編輯
procedure TForm1.SelectAll1Click(Sender: TObject);
begin
RichEdit1.SelectAll;
end;
- 選取編輯
procedure TForm1.Find1Click(Sender: TObject);
begin
FindDialog1.Execute;
end;
- 在finddialog1的onfind事件中加入下面程式碼
var
FoundAt: LongInt;
StartPos, ToEnd: integer;
begin
with RichEdit1 do
begin
{ begin the search after the current selection if there is one }
{ otherwise, begin at the start of the text }
if SelLength <> 0 then
StartPos := SelStart + SelLength
else
StartPos := 0;
{ ToEnd is the length from StartPos to the end of the text in the rich edit control }
ToEnd := Length(Text) - StartPos;
FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]);
if FoundAt <> -1 then
begin
SetFocus;
SelStart := FoundAt;
SelLength := Length(FindDialog1.FindText);
end;
end;
end;
- 決定選單使用時機：未選取就不能
procedure TForm1.Edit1Click(Sender: TObject);
var
HasSelection: Boolean;
begin
Paste1.Enabled := Clipboard.HasFormat(CF_TEXT);
HasSelection := RichEdit1.SelLength > 0;
Cut1.Enabled := HasSelection;
Copy1.Enabled := HasSelection;
end;
- 執行看看。
3.2.2
使用TiniFile物件
如何讓程式開始時回復到上次的狀態？
- 撰寫第二個程式單元
- 選擇File|New，在New Items對話方塊選取Unit。
- 完成下面程式：
Unit Utils;
Interface
Uses
SysUtils, Forms, IniFiles;
Procedure SaveFrmPos(AForm: TForm; Name: String);
Procedure SetFrmPos(AForm: TForm; Name: String);
Implementation
// 內部自己使用的函式及記錄型態
type
TPosRec = record
Top,
Left,
Height,
Width,
State : integer;
end;
{ 將word型類的內容轉換為列舉式型態 }
function IntToWinState(Int: Word): TWindowState;
begin
case Int of
0 : Result := wsNormal;
1 : Result := wsMinimized;
2 : Result := wsMaximized
else Result := wsNormal;
end;
end;
{ 轉換為INI檔所要使用的字串 }
function PosRecToStr(Pos:TPosRec): String;
begin
with Pos do
if State <> 2 then // 測試看是否在最大化的狀態
Result := IntToStr(State)+ // 目前表格的狀態
' '+IntToStr(Top)+ // 上方的位置
' '+IntToStr(Left)+ // 左側的位置
' '+IntToStr(Height)+ // 高度
' '+IntToStr(Width) // 寬度
else Result := IntToStr(State);
end;
{ 從字串中找出數字 }
function StrToPosRec(AString: String): TPosRec;
var
Temp: String;
I,J: Integer;
Blanks: array[1..4] of integer;
Begin
{ 設定變數的初始值 }
I := 1;
J := 1;
FillChar(Result, SizeOf(Result), #0);
FillChar(Blanks, SizeOf(Blanks), #0);
// 檢查視窗的狀態 -- 如果是wsMaximized, 那就無需要再做任何處理了
Temp := Copy(AString, 1, 1);
Result.State := StrToInt(Temp);
if Result.State = 2 then exit;
// 找出在字串間的空白
repeat
if AString[I] = ' ' then
begin
Blanks[J] := I;
Inc(J);
end;
Inc(I);
until (I = Length(AString)) or (J > 4);
// 從字串中取出所要的數字
Temp := Copy(AString, Blanks[1]+1, Blanks[2]-Blanks[1]-1);
Result.Top := StrToInt(Temp);
Temp := Copy(AString, Blanks[2]+1, Blanks[3]-Blanks[2]-1);
Result.Left := StrToInt(Temp);
Temp := Copy(AString, Blanks[3]+1, Blanks[4]-Blanks[3]-1);
Result.Height := StrToInt(Temp);
Temp := Copy(AString, Blanks[4]+1, Length(AString)-Blanks[4]);
Result.Width := StrToInt(Temp);
end;
// 把表格的大小/狀態/和位置寫到INI檔中
procedure SaveFrmPos(AForm: TForm; Name: String);
var
IniFile: TIniFile;
PosRec: TPosRec;
Begin
// 設定初始值
FillChar(PosRec, SizeOf(PosRec), #0);
IniFile := TIniFile.Create
(ChangeFileExt(ExtractFileName(ParamStr(0)), '.INI'));
try
// 取得表格的特性
with PosRec do
begin
State := Ord(AForm.WindowState);
Top := Aform.Top;
Left := Aform.Left;
Width := AForm.Width;
Height := AForm.Height;
end;
// 把資料寫到檔案中
IniFile.WriteString('Positions', Name, PosRecToStr(PosRec));
Finally
IniFile.Free;
end;
end;
// 從INI檔中讀取表格的資料
procedure SetFrmPos(AForm: TForm; Name: String);
var
IniFile: TIniFile;
PosString: String;
PosRec: TPosRec;
Begin
// 設定初始值
FillChar(PosRec, SizeOf(PosRec), #0);
IniFile := TIniFile.Create
(ChangeFileExt(ExtractFileName(ParamStr(0)), '.INI'));
try
// 從INI檔中讀取資料
PosString := IniFile.ReadString('Positions', Name, 'Default');
Finally
IniFile.Free;
end;
// 如果沒有讀到東西, 那就不用做任何進一步的處理
if PosString = 'Default' then exit;
PosRec := StrToPosRec(PosString);
// 設定表格的處位置
with AForm do
begin
WindowState := IntToWinState(PosRec.State);
if PosRec.State = 2 then exit;
Top := PosRec.Top;
Left := PosRec.Left;
Width := PosRec.Width;
Height := PosRec.Height;
end;
end;
end.
- 儲存表格的位置
- 在 Form1的OnDestroy事件輸入下面程式：
procedure TForm1.FormDestroy(Sender: TObject);
begin
SaveFrmPos(Form1, Form1.ClassName);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
SetFrmPos(Form1, Form1.ClassName);
OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0));
SaveDialog1.InitialDir := OpenDialog1.InitialDir;
SetCaption('Untitled');
end;
- zt:delphi入門級資料: 3 使用對話方塊、剪貼簿
- zt:delphi入門級資料: 2 基本windows程式
- zt:delphi入門級資料: 4 Object Pascal 介紹
- ZT: DELPHI講義
- zt:delphi入門級資料: 1 簡介、第一個程式
- ZT:Delphi直接读取XmL
- ZT: Delphi编程规范1.0.0.0 (yckxzjj )
- ZT:Delphi源程序格式书写规范
- ZT: Delphi编程规范1.0.0.0 (yckxzjj )
- ZT:Delphi源程序格式书写规范
- ZT:Delphi的TWebBrowser编程综述
- zt我的Delphi开发经验谈
- [ZT] Eclipse使用入门
- 为什么使用堆栈? (ZT)
- Eclipse 使用秘籍(zt)
- JNI的使用(ZT)
- 使用虚拟机(zt)
- (ZT)WMI使用集锦
- 推薦學習delphi入門級的資料(個人感覺相當不錯)
- VS 2005 Beta 1 发布了。
- Java 编程技术中汉字问题的一些url收藏
- zt:delphi入門級資料: 1 簡介、第一個程式
- zt:delphi入門級資料: 2 基本windows程式
- zt:delphi入門級資料: 3 使用對話方塊、剪貼簿
- 开篇－－－庆祝！
- 减少盗版——中国IT业蓬勃发展的必由之路
- 疑惑
- 我的论文不知道何年何月才能有消息阿
- 西游记的管理矛盾
- The C# Attribute
- 统一开发平台的字符终端版的初步实现
- javascript && DHTML &&HTC
