If i'm not mistaken delphi has the ability to show a list of options after you insert a component name followed by the "." (dot) that precedes more arguments.
My delphi 7 is not showing this list after the "."
Ex: When I enter
form1.edit1.
It should show a list of options for an "TEdit" component. Not happening, what's wrong?
Code:
unit Banri;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Clipbrd;
type
TForm1 = class(TForm)
EditTexto: TEdit;
ButtonGO: TButton;
procedure ButtonGOClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
SL: TStringList;
Count: Integer;
Appwin : hWnd;
implementation
{$R *.dfm}
var
TextoCompleto: String;
begin
TextoCompleto:= EditTexto.Text;
Appwin:= FindWindow(PChar(0),'Banrisul');
if Appwin <> 0 then
begin
StringReplace(TextoCompleto, '.', '', [rfReplaceAll, rfIgnoreCase]);
SL:= TStringList.Create;
try
ExtractStrings([' '], [], PChar(TextoCompleto), SL);
WriteLn(SL.Text);
ReadLn;
finally
SL.Free;
end;
Count:= 0;
while Count <> SL.Count - 1 do
begin
Clipboard.AsText:= SL[Count];; //place text in clipboard
//if Clipboard.HasFormat(CF_TEXT) then
//do something with text
ShowMessage(Clipboard.AsText);
Clipboard.AsText:= SL[Count + 1];; //place next line text in clipboard
//if Clipboard.HasFormat(CF_TEXT) then
//do something with text
inc(Count);
end; //while Count <> SL.Count - 1 do
SL.Free;
end; //if Appwin <> 0 then
end.