Нужно добавить пункты в приложении

[Skidxs]

Вот код программы:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IniFiles, ExtCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Memo1: TMemo;
Edit1: TEdit;
Image1: TImage;
Button1: TButton;
SaveDialog1: TSaveDialog;
procedure FormCreate(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

var
ini: TIniFile;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.Items.LoadFromFile ('страны.txt');
ListBox1.ItemIndex := 0;
ListBox1Click (Sender);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
if ListBox1.ItemIndex > -1 then begin
Memo1.Lines.LoadFromFile (ListBox1.Items[ListBox1.ItemIndex] + '.txt');
end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
FreeAndNil (ini);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
//поиск
Listbox1.Perform(LB_SELECTSTRING, -1, longint(Pchar(Edit1.text)));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
If SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1. FileName+'.txt');
end;

end.

нужно сделать чтобы в edit было введите название а при нажатие мышки текст: введите название исчез... И еще нужно добавить типо разделов все точно также, единственно чтобы они переключались. Я имею ввиду типа категорий Приколы, Анекдоты, Шутки и.т.д и чтобы приколы, шутки и анекдоты добавлялись отдельно... Как в разных окнах...
Буду очень признателен за помощь и с меня будет огромный магарыч...

[CrazyDave]

аська 411-886-702

[stalker1995s]

Возмусь, напишу с нуля, с красивым и мастерским интерфейсом, напишите в скайп: stalker_agg

[kventin_zhuk]

Пишите - обсудим.

[karider]

Сообщение от Skidxs

нужно сделать чтобы в edit было введите название а при нажатие мышки текст: введите название исчез...

Если делфи - новая (2009+), то задаётся у Edit'а свойство TextHint и дело с концом. Если старая, то самый простой вариант - записать текст в Hint, в OnEnter - очищать Text при совпадении с Hint, в OnExit - копировать Hint в Text, если Text - пустой. Плюс шрифт менять на серый и обратно, если нужно.

Сделаю это и всё остальное, обращайтесь на karider сбк yandex.ua

[stalker1995s]

Задача выполнена, расчет получен. Спасибо!