Много вопросов по программироанию в Delphi 7(нужна помощь)

[*Devil*]

У меня есть пару вопросов:

1.Как сделать чтобы форма появлялась с задержкой (то есть сначала была прозрачной и постепенно появлялась)

2.Как осуществить поиск в компоненте ListBox.

3.Как осуществить поиск в компоненте RichEdit по заданному слову

4.Каким образом можно экспортировать информацию из RichEdit в Word.

5.Как можно осуществить тест.

[Alex21]

1.Свойстово у формы: AlphaBlend:=true; AlphaBlendValue:=0..255 (0-невидима), через таймер задать изменение от 0 до 255
2.-
3.Компонент FindDialog, закладка Dialogs
4.Компонент WordApplication, или просто сохранить с расширением .doc
5.???

[Kamikadze_666]

Сообщение от *Devil*

Как сделать чтобы форма появлялась с задержкой (то есть сначала была прозрачной и постепенно появлялась)

Вот пример плавного появления формы (для этого понадобится компонент Timer):

  private
    { Private declarations }
    FTimeCounter:integer;
 
.........
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  repeat
    Form1.AlphaBlendValue:=Form1.AlphaBlendValue + 5;
    Dec(FTimeCounter);
    if FTimeCounter = 0 then
    Timer1.Enabled:=false;
  until  Form1.AlphaBlendValue= 255;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 FTimeCounter := 10;
 Timer1.Enabled:=true;
end;

В свойствах Таймера задай интервал = 1 .

[*Devil*]

И еще вопросик как сделать чтобы форма плавно исчезала....

[Alex21]

Доработал код Kamikadze_666:

var
FTimeCounter:integer;
A:byte = 0;
.........
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
case A of // добавлена переманная А, =0 при загрузке, 1 при выходе.
0:begin // если мы открвыаем форму
repeat
Form1.AlphaBlendValue:=Form1.AlphaBlendValue + 5;
Dec(FTimeCounter);
if FTimeCounter = 0 then
Timer1.Enabled:=false;
until Form1.AlphaBlendValue= 255;
end;
end;
1:begin // если закрываем
repeat
Form1.AlphaBlendValue:=Form1.AlphaBlendValue - 5;
Dec(FTimeCounter);
if FTimeCounter = 255 then
Timer1.Enabled:=false;
Form1.Close;
until Form1.AlphaBlendValue= 0;
end;
end;
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
A:=0;// это значит создаем форму
FTimeCounter := 10;
Timer1.Enabled:=true;
end;
 
procedure TForm1.FormClose(Sender: TObject);
begin
A:=1; // это значит закрываем форму
FTimeCounter := 10;
Timer1.Enabled:=true;
end;

[*Devil*]

А ты не подскажешь свойства Компонент WordApplication и
Компонент FindDialog а то я вобще их незнаю...

[Alex21]

Сообщение от *Devil*

А ты не подскажешь свойства Компонент WordApplication и
Компонент FindDialog а то я вобще их незнаю...

По Ворду почитай здесь: http://www.delphikingdom.ru/asp/item...ode=1&ItemID=3
////////////////////////////////////////////////
Из справки Delpi: пример использования FindDialog в RichEdit

procedure TForm1.Button1Click(Sender: TObject);
 
begin
FindDialog1.Position := Point(RichEdit1.Left + RichEdit1.Width, RichEdit1.Top);
FindDialog1.Execute;
end;
 
procedure TForm1.FindDialog1Find(Sender: TObject);
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;
////////////////

// Справочку полезно иногда читать

[НЕ_АЙС]

Поиск в ListBox:
Считаем, что есть поле Edit1, в котором набираем текст, и ListBox, в котором ищем нужную строку, (как в Нelp).

procedure TForm1.Edit1Change(Sender: TObject);
begin
ListBox1.Perform(LB_SELECTSTRING,-1,longint(Pchar(Edit1.text)));
end;

[*Devil*]

Помогите кто нибудь разобраться с экспортом текста из RichEdit в word. Надо нажимая кнопку отправить его в word или типо того, очень надо, по ссылкам лазил много инфы и нечего талковаго...

[*Devil*]

1 Помогите кто нибудь разобраться с экспортом текста из RichEdit в word. Надо нажимая кнопку отправить его в word или типо того, очень надо, по ссылкам лазил много инфы и нечего талковаго..

2 Как распечатать текст с помощью printdialog с компонента Richedit?