Skapa en Delphi-anteckningsblock: Öppna och spara

När du arbetar med olika Windows-applikationer och Delphi, vi har vant oss vid att arbeta med en av standarden dialogrutor för att öppna och spara en fil, hitta och ersätta text, skriva ut, välja teckensnitt eller ställa in färger.

I den här artikeln undersöker vi några av de viktigaste egenskaperna och metoderna i dialogrutorna med ett särskilt fokus på Öppen och Spara dialogrutor.

De vanliga dialogrutorna finns på fliken Dialogrutor på komponentpaletten. Dessa komponenter utnyttjar de vanliga Windows-dialogrutorna (som finns i en DLL i din \ Windows \ System-katalog). För att använda en gemensam dialogruta måste vi placera lämplig komponent (komponenter) på formuläret. De vanliga dialogrutans komponenter är icke-visuella (har inte ett visuellt gränssnitt för designtid) och är därför osynliga för användaren vid körning.

Dialogrutorna File Open och File Save har flera gemensamma egenskaper. File Open används vanligtvis för att välja och öppna filer. Dialogrutan File Save (som också används som dialogrutan Save As) används när du får ett filnamn från användaren för att spara en fil. Några av de viktiga egenskaperna hos TOpenDialog och TSaveDialog är:

• De alternativ egenskaper är mycket viktiga för att bestämma rutans slutliga utseende och känsla. Till exempel en kodrad som:

  med OpenDialog1 doAlternativ: = Alternativ + [avAllowMultiSelect, ofFileMustExist];

  kommer att hålla alternativen redan inställda och låta användare välja mer än en fil i dialogrutan tillsammans med att generera ett felmeddelande om användaren försöker välja en icke-befintlig fil.
• De InitialDir egenskapen används för att specificera den katalog som ska användas som den initiala katalogen när dialogrutan för fil visas. Följande kod säkerställer att den ursprungliga katalogen i dialogrutan Öppna dialogrutan är programkatalogen.

  SaveDialog1.InitialDir: = ExtractFilePath (applikation. ExeName);

• De Filtrera Egenskapen innehåller en lista över filtyper som användaren kan välja från. När användaren väljer en filtyp från listan visas bara filer av den valda typen i dialogrutan. Filtret kan enkelt ställas in vid designtid genom dialogrutan Filterredigerare.
• För att skapa filmasker i programkod, tilldela ett värde till egenskapen Filter som består av en beskrivning och en mask separerad med ett vertikalt stapel (rör). Så här:
  

  OpenDialog1.Filter: = 'Textfiler (* .txt) | * .txt | Alla filer (*. *) | *. * ';

• De Filnamn fast egendom. När användaren klickar på OK-knappen i en dialogruta kommer den här egenskapen att innehålla den fullständiga sökvägen och filnamnet för den valda filen.

För att faktiskt skapa och visa en gemensam dialogruta måste vi bearbeta Kör metod för den specifika dialogrutan vid körning. Förutom TFindDialog och TReplaceDialog visas alla dialogrutor modellt.

Alla de vanliga dialogrutorna tillåter oss att avgöra om användaren klickar på Avbryt-knappen (eller trycker på ESC). Eftersom Execute-metoden returnerar True om användaren klickade på OK-knappen måste vi fånga ett klick på en Cancel-knapp för att se till att en given kod inte körs.

om OpenDialog1.Execute sedan
ShowMessage (OpenDialog1.FileName);

Denna kod visar dialogrutan File Open och visar ett valt filnamn efter ett "framgångsrikt" samtal för att köra metod (när användaren klickar på Open).

Obs: Execute returnerar sant om användaren klickade på OK-knappen, dubbelklickade på ett filnamn (i fallet med fildialogrutorna) eller trycker på Enter på tangentbordet. Execute returnerar falskt om användaren klickade på Avbryt-knappen, tryckte på Esc-knappen, stängde dialogrutan med systemstängningsknappen eller med Alt-F4-tangentkombinationen.

För att arbeta med öppen dialog (eller någon annan) under körning utan att placera en OpenDialog-komponent på formuläret kan vi använda följande kod:

procedur TForm1.btnFromCodeClick (avsändare: TObject); var OpenDlg: TOpenDialog; Börja OpenDlg: = TOpenDialog. Skapa (Själv); {ställa in alternativ här ...}om OpenDlg. Kör sedanBörja
{kod för att göra något här}
slutet; OpenDlg. Fri; slutet;

Obs! Innan vi kör Execute kan vi (måste) ställa in någon av OpenDialog-komponentens egenskaper.

Slutligen är det dags att göra en verklig kodning. Hela idén bakom denna artikel (och få andra som kommer) är att skapa ett enkelt MyNotepad-program - fristående Windows som Notepad-applikation.
I den här artikeln presenteras vi med öppna och spara dialogrutor, så låt oss se dem i aktion.

Steg för att skapa MyNotepads användargränssnitt:
. Starta Delphi och välj File-New Application.
. Placera ett memo, OpenDialog, SaveDialog två knappar på ett formulär.
. Byt namn på knapp1 till btnÖppna, knapp2 till btnSave.

1. Använd Object Inspector för att tilldela följande kod till händelsen FormCreate:

procedur TForm1.FormCreate (avsändare: TObject); Börjamed OpenDialog1 doBörja
Alternativ: = Alternativ + [ofPathMustExist, ofFileMustExist]; InitialDir: = ExtractFilePath (applikation. ExeName); Filter: = 'Textfiler (* .txt) | * .txt'; slutet; med SaveDialog1 doBörja
InitialDir: = ExtractFilePath (applikation. ExeName); Filter: = 'Textfiler (* .txt) | * .txt'; slutet; Memo1.ScrollBars: = ssBoth; slutet;

Denna kod anger några av de öppna dialogegenskaperna som diskuteras i början av artikeln.

2. Lägg till den här koden för Onclick-händelsen för btnOpen och btnSave-knapparna:

procedur TForm1.btnOpenClick (avsändare: TObject); Börjaom OpenDialog1.Execute sedanBörja
Form1.Caption: = OpenDialog1.FileName; Memo1.Lines. LoadFromFile. (OpenDialog1.FileName); Memo1.SelStart: = 0; slutet; slutet;

procedur TForm1.btnSaveClick (avsändare: TObject); Börja
SaveDialog1.FileName: = Form1.Caption; om SaveDialog1.Execute sedanBörja
Memo1.Lines. Spara till fil. (SaveDialog1.FileName + '.txt'); Form1.Caption: = SaveDialog1.FileName; slutet; slutet;

Kör ditt projekt. Du kan inte tro det; filer öppnas och sparas precis som med det "riktiga" anteckningsblocket.

Det är allt. Vi har nu vår egen "lilla" anteckningsblock.