Solved

Example of MRU in ComboBox

Posted on 2002-07-21
6
970 Views
Last Modified: 2008-02-01
HI

Im making an app that can log onto different servers but only one at once. I would like it that when the app loads it can read the registry and grab a list of servers that have been used before and put them into a combobox OR if they enter a new name it stores it into the registry with the others.

I have looked at some components but they all seem to be with files and not entries in a registry like i need.

Example will get the points.
Many thanks
B.
0
Comment
Question by:BRowley
  • 4
  • 2
6 Comments
 
LVL 17

Expert Comment

by:geobul
ID: 7168767
Hi,
Form.OnCreate loads server names from HKEY_CURRENT_USER\Software\Geobul\Servers

ComboBox1.OnKeyPress adds a new server name entered in the combobox.

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  KeyPath: string = 'Software\Geobul\Servers';
  ValueNames: TStringList;

implementation

{$R *.DFM}

uses Registry;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  with TRegistry.Create do begin
    // HKEY_CURRENT_USER by default
    if OpenKey(KeyPath, false) then begin
      ValueNames := TStringList.Create;
      try
        ComboBox1.Items.Clear;
        GetValueNames(ValueNames);
        for i := 0 to ValueNames.Count - 1 do begin
          ComboBox1.Items.Add(ReadString(ValueNames[i]));
        end;
      finally
        ValueNames.Free;
      end;
      CloseKey;
    end;
    Free;
  end;
end;

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then begin // Enter key
    if ComboBox1.Items.IndexOf(ComboBox1.Text) = -1 then begin // new server was entered
      with TRegistry.Create do begin
        if OpenKey(KeyPath, true) then begin
          WriteString('Server'+ IntToStr(ComboBox1.Items.Count), ComboBox1.Text);
          ComboBox1.Items.Add(ComboBox1.Text);
        end;
      end;
    end;
  end;
end;

Regards, Geo
0
 
LVL 17

Accepted Solution

by:
geobul earned 100 total points
ID: 7168800
I'm sorry, use the following KeyPress event instead of the previous one. Registry.Free is missing there.

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then begin // Enter key
    if ComboBox1.Items.IndexOf(ComboBox1.Text) = -1 then begin // new server was entered
      with TRegistry.Create do begin
        if OpenKey(KeyPath, true) then begin
          WriteString('Server'+ IntToStr(ComboBox1.Items.Count), ComboBox1.Text);
          ComboBox1.Items.Add(ComboBox1.Text);
        end;
        Free;
      end;
    end;
  end;
end;
0
 

Author Comment

by:BRowley
ID: 7169240
Excellent. Dont suppose you know how to stop the beep on enter on the combobox do you please?

Anyway many thanks for your time and help.
Regards
Barry
0
Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
LVL 17

Expert Comment

by:geobul
ID: 7169298
Thank for the points, Barry.

About beep:

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
...
  ComboBox1.Items.Add(ComboBox1.Text);
  Key := #0; // add this line to suppress the beep
...
end;

Regards, Geo
0
 
LVL 17

Expert Comment

by:geobul
ID: 7169723
Actually, it'd be better to place that line (Key := #0;)immediately after:
if Key = #13 then begin // Enter key

That way all beeps will be ignored. In my previous comment only the beeps when adding new items are suppressed.

Regards, Geo
0
 

Author Comment

by:BRowley
ID: 7169736
Thank you.
regards
B.
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Show Listview image from database (String field) 5 137
How to renew a Delphi rad-studio licence? 5 69
how can i search if string exist in array ? 3 63
Base1 Encode/Decode 3 82
The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
This video shows how to use Hyena, from SystemTools Software, to bulk import 100 user accounts from an external text file. View in 1080p for best video quality.
In an interesting question (https://www.experts-exchange.com/questions/29008360/) here at Experts Exchange, a member asked how to split a single image into multiple images. The primary usage for this is to place many photographs on a flatbed scanner…

829 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question