Omlouvám se, přetypovaní musí být na integer, ne na Pointer. Takže něco takového:
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Tag := Integer(Edit1);
TEdit(Button1.Tag).Text := 'Novy text';
end;
poradna.net
Neregistrovaný Přihlásit Registrovat