Показать сообщение отдельно
  #9  
Старый 21.10.2010, 14:39
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

ну вот смотри пример:
нажатие на Button1 удалит именно Edit2. тогда как несколько нажатий на Button2 удалят вообще все Edit"ы. т.е. чтобы найти нужный один Edit нужно в FindWindowEx передать его класс и текст, который в нем сидит:
Код:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  h: THandle;
begin
  h:=FindWindowEx(Handle, 0, 'TEdit', 'Edit2');
  if h<>0 then DestroyWindow(h);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  h: THandle;
begin
  h:=FindWindowEx(Handle, 0, 'TEdit', nil);
  if h<>0 then DestroyWindow(h);
end;

end.

http://data.cod.ru/72124
__________________
Пишу программы за еду.
__________________
Ответить с цитированием